Составьте программу. Для вводимых с клавиатуры чисел определить количество четных и сумму нечетных чисел. Ввод прекращается когда пользователь вводит цифру 0

Вопрос школьника по предмету Информатика

Составьте программу. Для вводимых с клавиатуры чисел определить количество четных и сумму нечетных чисел. Ввод прекращается когда пользователь вводит цифру 0

Ответ учителя по предмету Информатика

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