1.Взять горшок
2.Поставить горшок.
3.взять землю
4.насыпать землю
5.вставить цветок.
ПОКА
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.
Правильным ответом является 3, есть формула каждая цифра числа начиная справа умнажается на 2 в степени от 0 и выше то есть если 11 то 1*2^0+1*2^1
12 это 2*2^0+1*2^1
Древние люди информации рисовали ответ в ) рисунки