Регистрация
YanaNiki
03.09.2021 06:10
Информатика
Есть ответ 👍

Потрібно самостійну з інформатики дуже в

168
269
Посмотреть ответы 1

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

Stella2002111
Stella2002111
4,7(14 оценок)
Var a,c: longint;       s: real; begin c: =-1; s: =0; repeat read(a); if a mod 2 = 0 then c: =c+1 else s: =s+a; until a = 0; writeln('количество чётных: ',c); writeln('сумма нечётных: ',s); end. пример работы программы: 1 2 3 4 5 6 7 8 9 10 0 количество чётных: 5 сумма нечётных: 25

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