Ответы на вопрос:
:var a, s, n: integer; begin writeln('введите числа, завершение -- 0: '); n: =0; s: =0; read(a); while a< > 0 do begin if not odd(a) then begin inc(n); s: =s+a; end; read(a); end; if n> 0 then writeln('среднее арифметическое четных: ',s/n) else writeln('четных чисел не введено.'); end. ну я так поняла первое (не точно)
Популярно: Информатика
-
Крейми5113.02.2022 22:55
-
kmidakova23.02.2020 03:22
-
risj83risj25.02.2023 00:24
-
Diana12b25.05.2023 20:19
-
Malishok1234507.04.2021 20:08
-
emmadetes22.05.2020 00:35
-
vova14722825.02.2022 02:43
-
alena66706.06.2023 06:30
-
misi222.10.2022 05:02
-
Polyak5630.09.2022 06:21