Ответы на вопрос:
Program zadanie; var x,y: real; begin writeln('введите значения x и y'); readln(x,y); if x> y then begin x: =x+y; y: =x-y; x: =x-y; writeln('x=',x); writeln('y=',y); end; end.
Популярно: Информатика
-
Misha7206510.03.2022 13:47
-
ksenyaLove124610.11.2020 07:45
-
Настечок25.05.2020 02:49
-
diana619200515.03.2022 12:06
-
aminkaaverynova07.01.2021 12:41
-
kurbedinovazar28.04.2021 22:25
-
tomasmraz23.01.2022 09:33
-
bogdanka1503p08ifa17.07.2020 21:22
-
olena34567864422.12.2020 00:58
-
Black21991112.07.2020 11:05