Ответы на вопрос:
Var a,b,a1,b1: real; begin readln(a,b); if a = b then writeln('числа равны') else if a> b then begin a1: =2*a*b; b1: =(a+b)/2; a: =a1; b: =b1; writeln('a = ',a,' b = ',b) end else begin b1: =2*a*b; a1: =(a+b)/2; a: =a1; b: =b1; writeln('a = ',a,' b = ',b); end; end.
Популярно: Информатика
-
creeperm47716.10.2021 19:55
-
krotkovaksenia114.03.2023 16:35
-
sonatap01f6p09.02.2021 18:36
-
viktoria19029020.04.2020 01:36
-
Катенька23118.02.2021 22:07
-
elenafrolova3110.03.2022 01:27
-
Kss14091622.02.2022 06:46
-
kristinasotsen17.11.2022 14:17
-
crasavchik26.05.2022 01:13
-
AAOO07.06.2022 17:05