Написать программу, которая вычисляет количество четных чисел. Последовательность всех чисел задается с клавиатуры. Признаком окончания ввода последовательности чисел является значение любого отрицательного числа. Диапазон чисел {-10000; 10000}

Question

Информатика

Божена

7 сентября, 14:38

Написать программу, которая вычисляет количество четных чисел. Последовательность всех чисел задается с клавиатуры. Признаком окончания ввода последовательности чисел является значение любого отрицательного числа. Диапазон чисел {-10000; 10000}

+5

Ответы (1)

Знаете ответ на вопрос?

Эрнст · Answer 1

Var x, y:integer;

begin

y:=0;

repeat

writeln ('Введите число') ;

read (x) ;

if x mod 2 = 0 then y:=y+1;

until x<0;

writeln ('Количество четных цифр = ', y) ;

end.