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

Question

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

Answer 1

не очень понятно условие задачи, решил, как понял

 

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.