Question

Помогите пожалуйста. (Программа паскаль)

Answer 1

var a,b,n:integer;

begin

  readln(a,b);

  if (a+b) mod 2 = 0 then writeln (a*b)

    else

  writeln(b/a);

end.

Answer 2

2)
var
a,b:integer;
begin
Readln(a,b);
if (a+b)mod 2 = 0 then
  Writeln(a*b)
else
  Writeln(b/a);
end.
--------------------------
Для пользователя eugene7870  приложил скрин работы программы при вводе "0 5"
--------------------------

6)
var
a:integer;
begin
Readln(a);
if (a mod 10 + a div 10)mod 2 = 0 then
  a:= a + 2
else
  a:= a - 2;
Writeln(a);
end.