Ответы на вопрос:
Var n, x, i : integer; s : double; begin writeln('количество чисел'); readln(n); s : = 0; for i : = 1 to n do begin writeln(i,' число'); readln(x); if x mod 4 = 0 then s : = s + x; end; s : = s / n; writeln('ответ: ',s); end;
Популярно: Информатика
-
lazmax200010.01.2021 16:51
-
оксана72616.03.2023 05:20
-
Roman31039925.04.2022 05:36
-
BroKeNxHeArT23.04.2022 11:14
-
marshaldir8028.11.2020 13:27
-
tuzor02.04.2023 02:14
-
VenyaMenya12.02.2020 07:37
-
Severelinka23.06.2020 05:53
-
lesanazyrova05.05.2020 01:48
-
Обжора22812.03.2020 23:28