Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности.
Только не надо с других сайтов брать.
Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности.
Только не надо с других сайтов брать.
Только не надо с других сайтов брать.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountEvenPositiveNumbers;
var
num, count: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) thenwrite('Enter a number: ');
readln(num);
count := count + 1;
until num = 0;
writeln('The number of even positive numbers in the sequence is: ', count);
end.