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

Question

Информатика

Мария

3 марта, 05:42

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

+3

Ответы (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.