Ответы на вопрос:
Var a,b,c: real; beginwriteln('введите два действительных числа а и в: '); readln(a,b); if a< b then beginc: =a; a: = b-a; b: = 0.5*(b+c); endelsebeginc: =b; b: = b-a; a: = 0.5*(a+c); end; writeln('a = ',a,' b = ',b); end.
Популярно: Информатика
-
uliatuchakrom914.12.2021 09:55
-
Fuvhrcsghinm14.04.2021 21:37
-
Тупка1127.02.2022 08:17
-
Айрона29.08.2022 03:42
-
tokio331.08.2021 05:31
-
Kola2004kola09.10.2022 07:05
-
ougodnikovaa30.11.2021 11:42
-
Karina90206.05.2021 01:09
-
roxolanavarLana22.09.2020 19:08
-
alik78107.08.2021 21:08