Question

Даны 2 числа. Если хотя бы одно из них четное уменьшить оба на 1, иначе увеличить на 2. Составить программу. Заранее спасибо

Answer 1

var a,b: integer;

begin

readln(a,b);

if (a mod 2=0) or (b mod 2=0) then

begin

a:=a-1;

b:=b-1;

end else begin

a:=a+2;

b:=b+2;

end;

write(a,' ',b);

end.