Синформатикой: из чисел a b c d d выбрать такие которые больше среднего арифметического этих чисел. прошу напишите на языке паскаль. заранее
163
245
Ответы на вопрос:
Program n1; var a,b,c,d,s: real; begin read(a,b,c,d); s: =(a+b+c+d)/4; if a> s then begin writeln(a); if b> s then begin write(b); if c> s then begin write(c); if d> s then begin write(d); end; end.
Популярно: Информатика
-
alona777302.03.2020 22:27
-
Lilia300212.10.2020 01:40
-
Lagunahey29.05.2021 18:57
-
Shidvwissysvdiw14.04.2022 04:28
-
getmanchenko0205.09.2020 09:30
-
Gorki200530.06.2023 09:50
-
ВикторияГога23.12.2021 14:24
-
Игнор121.10.2022 07:06
-
lenapyda09.05.2021 09:28
-
AngelIv10.04.2023 17:44