Ответы на вопрос:
Var i,k,d: integer; begin for i: =100 downto 50 do if (i mod 5=0) then begin writeln(i); inc(k); d: =d+i; end; writeln('среднее арифметическое : ',d div k); end.
Популярно: Информатика
-
Араиприпо15.07.2020 05:16
-
Школа22111127.09.2020 12:00
-
Sultikutan20.09.2020 20:43
-
ВикторияПан17.09.2022 10:08
-
RRRR222111107.09.2022 16:05
-
Nastyapetrushicheva21.01.2020 23:22
-
titovazaiceva05.01.2021 16:55
-
Carroty1326.09.2020 19:51
-
ek72Wasdk04.04.2023 17:45
-
арут412.06.2020 15:07