Может фотографировать, интернет, редактировать и т.д
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)
<span>end.</span>
Канада, Бразилия, Япония - морские державы
Канада, Бразилия, США - страны Западного полушария (страны Северной и Южной Америки)
Канада, Мексика, США - страны Северной Америки
Амазонка, Енисей, Нил - крупнейшие реки мира
Волга, Амур, Иртыш - реки России
Лаура, Эльба, Висла - реки Европы
Принтер, монитор, клавиатура - устройства ПК
Клавиатура, сканер, мышь - устройства ввода
Берёза, жасмин, ромашка - растения
Яблоня, груша, вишня - плодовые культуры
13+<u>14</u>+15+16+17+18+<u>19</u>+20=132
13+20=33
14+19=33
и таких пар 4
33*4=132
Ответ :132.