1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
На горбушку) там много мастеров)
Маша подарила лото, Жанна подарила цветы, Таня подарила раскраску, а Оля-куклу. Задача решается методом исключения.
По 1-му пункту: Маша и Жанна не дарили куклу и раскраску
по 2-му пункту Оля не дарила лото, раскраску и цветы
по 3-му пункту Маша не дарила цветы
Надеюсь, что всё понятно
Var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
else min:=b;
writeln('Min - ',min);
<span>end.</span>