Ответы на вопрос:
Var x,y,a: real; begin write('x = '); readln(x); write('y = '); readln(y); if x> y then begin a: =x; x: =2*x*y; y: =(a+y)/2; end else begin a: =y; y: =2*x*y; x: =(x+a)/2; end; writeln; writeln('x = ',x); writeln('y = ',y); end.
Популярно: Информатика
-
AnnaKhusainova19.04.2021 20:17
-
Игорь500202.02.2021 03:04
-
Мухлисуллин26.02.2021 21:49
-
Ulyana2006mizik5B28.02.2021 19:19
-
альбинка2825.04.2021 18:34
-
cska200320.11.2021 07:03
-
yogurtq201811.12.2020 05:31
-
paliy200602.10.2020 23:25
-
НеизвестныйНикнейм27.03.2022 23:09
-
Kam0911.05.2023 10:40