Написать программу, которая вычисляет количество четных чисел. Последовательность всех чисел задается с клавиатуры. Признаком окончания ввода последовательности чисел является значение любого отрицательного числа. Диапазон чисе...
Написать программу, которая вычисляет количество четных чисел. Последовательность всех чисел задается с клавиатуры. Признаком окончания ввода последовательности чисел является значение любого отрицательного числа. Диапазон чисел {-10000;10000}
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы