Регистрация
zohvav
12.01.2021 19:20
Информатика
Есть ответ 👍

Написать программу на PASCAL

209
265
Посмотреть ответы 1

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

ира09н9
ира09н9
4,7(32 оценок)
Uses crt; var a,b,c: integer; begin writeln('vvedi a,b') readln(a,b); c: =a+b; if (a> b) then begin b: =abs(a-b); a: =c; end else if (a< b) then begin a: =abs(a-b); b: =c; end; writeln('a=',a,' b=',b); end.

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