Регистрация
Аврoра
25.08.2022 12:12
Информатика
Есть ответ 👍

До ть зробить інформатика 11 клас

285
383
Посмотреть ответы 1

Ответы на вопрос:

zbbzk
zbbzk
4,7(26 оценок)
: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. ну я так поняла первое (не точно)

Популярно: Информатика