Программа на Pascal.
Вводится последовательность натуральных чисел пока не вводится число 0. Вывести сколько раз в последовательности за четным числом идет нечетное
Программа на Pascal.
Вводится последовательность натуральных чисел пока не вводится число 0. Вывести сколько раз в последовательности за четным числом идет нечетное
Вводится последовательность натуральных чисел пока не вводится число 0. Вывести сколько раз в последовательности за четным числом идет нечетное
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
num, prevNum: integer;
count: integer;
begin
count := 0;
prevNum := -1;
repeat
write('Enter a natural number (0 to exit): ');
readln(num);
if (num mod 2 = 0) and (prevNum mod 2 <> 0) then
count := count + 1;
prevNum := num;
until num = 0;
writeln('Count of odd numbers after even numbers: ', count);
end.