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

Question

Информатика

Ксеня

20 января, 12:26

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

+4

Ответы (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.