Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа.

Question

Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

не очень понятно условие задачи, решил, как понял Program qaf; uses crt; var x,y,z:integer; begin clrscr; readln(X); y:=0; z:=0; while x<>0 do begin if odd(x) then inc(y) else inc(z); readln(x); end; writeln('кол-во нечётных=',y,'кол-во чётных=',z); readln; end.