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

Question

Информатика

Ноня

15 июля, 12:05

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

+1

Ответы (1)

Знаете ответ на вопрос?

Милен · Answer 1

Var

a, b:integer;

begin

write ('Введите два числа: ') ;

readln (a, b) ;

if a>b then

writeln ('Полученные числа: ', a+1,#10, b-1) else

writeln ('Полученные числа: ', a-1,#10, b+1) ;

readln;

end.