Question

1. Напиши программу, которая меняет местами содержимое переменных а и b так, чтобы в переменной а всегда было большее значение. Вставь три пропущенные строки в правильном порядке (фотография)
2. Напиши программу, которая запрашивает с клавиатуры 2 числа и находит их сумму, если оба они чётные, в противном случае находит их произведение.
3. Напишите программу, которая запрашивает с клавиатуры 2 числа и находит их сумму, если одно из них чётное, в противном случае, находит их произведение.

Answer 1

1)

var

 a,b,c:integer;

begin

 readln(a,b);

 if a < b then begin

   c:=a;

   a:=b;

   b:=c;

 end;

 writeln(a, ' ', b);

end.

2)

var

 a,b:integer;

begin

 readln(a,b);

 if Odd(a) and Odd(b) then writeln(a*b)

 else writeln(a+b);

end.

3)

var

 a,b:integer;

begin

 readln(a,b);

 if not Odd(a) or not Odd(b) then writeln(a+b)

 else writeln(a*b);

end.