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

alena13gerda alena13gerda    2   25.10.2019 22:10    1

Ответы
aurantiuma aurantiuma  27.08.2020 15:50

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика