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) Набрать 8 литровый сосуд
2) Перелить в 3-x литровый из 8-ми литрового
3) Вылить все из 3-х литрового и повторить действие 2
4) Повторить действие 3
В 3-х литровом сосуде теперь 2 литра
5) Набрать 8 литровый сосуд и вылить из него 1 литр в 3-х литровый
Два только могу пока, если остальное высчитаю напишу.
<span>1111001-1101=1101100
</span><span>10101110:101=100010</span>
56420 Ответ вот такой... Это и есть всё число!)
<em>1) используется в тех ситуациях, когда точно известно, несомненно что что-то произойдет;
</em><em>2) употребляется в таких ситуациях, когда человек удачлив, буквально беды обходят стороной;</em>
<span><em>3) используется при описании человека, о его широких плечах.</em></span>