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

Mahb Mahb    3   21.06.2019 22:50    0

Ответы
azazaka220 azazaka220  17.07.2020 10:49
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. :)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика