Ответы на вопрос:
Uses crt; var a,b: integer; begin textbackground(15); textcolor(1); clrscr; writeln('введите a ,b через пробел'); write('a='); readln(a); write('b='); readln(b); if (a> b) then begin writeln('наибольшее a: ',a); writeln('наименьшее b: ',b); end else if (awriteln('наибольшее b: ',b); writeln('наименьшее a: ',a); end else if (a=b) then writeln('a=b, a: ',a,' b: ',b); end.
Популярно: Информатика
-
жанель9815.08.2020 04:08
-
domaris24610.05.2022 00:26
-
saltanatkeneso09.09.2021 06:02
-
kamakoshkina26.03.2022 09:22
-
zaret112.08.2021 16:02
-
astrapolina14.08.2020 12:34
-
ГНМ27.06.2022 18:49
-
kseniatrof29.09.2021 13:56
-
dennikitos23.04.2023 17:37
-
Vetal32105.02.2023 19:00