Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу,которая запрашивает 2 числа,из которых к большему прибавляется 1,а у меньшего вычитается 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. :)