Ответы на вопрос:
Var a, b, c: real; begin write('введите a, b и c: '); readln(a, b, c); if (b < c) and (a < b) then begin a : = 2 * a; b : = 2 * b; c : = 2 * c; end else begin a : = -a; b : = -b; c : = -c; end; writeln(a, ' ', b, ' ', c); end.
Популярно: Информатика
-
dariagolubeva26.04.2021 02:08
-
GreenApelsin09.06.2021 11:24
-
эрика9606.07.2021 21:20
-
3pirat12210.02.2020 05:24
-
shidiemmacom109.05.2020 23:01
-
екатерина210211.08.2020 03:27
-
kallor1203.02.2021 06:40
-
kutluyulova0421.09.2021 08:38
-
kamillikoryan06.09.2022 21:31
-
sabovkristiурис24.03.2022 06:32