var
n : integer;
p : integer;
x : integer;
c : integer;
begin
c := 0;
readln(n,p);
readln(x);
while (x <> 0) do
if (x mod 2 <> 0) then
c += 1;
end;
writeln(c);
end.
??? Непонятное условие.
var
n : integer;
p : integer;
x : integer;
c : integer;
begin
c := 0;
readln(n,p);
readln(x);
while (x <> 0) do
begin
if (x mod 2 <> 0) then
c += 1;
readln(x);
end;
writeln(c);
end.
??? Непонятное условие.