Регистрация
Андрей0126
16.01.2022 07:29
Информатика
Есть ответ 👍

Соч по информатике ​писать сразу ответытоесть 1 сделали ответ. кинули. надо прям , буду безгранично

192
404
Посмотреть ответы 1

Ответы на вопрос:

almaz20004
almaz20004
4,5(21 оценок)
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. : )

Популярно: Информатика