16 lines
233 B
ObjectPascal
16 lines
233 B
ObjectPascal
var even,odd,a:integer;
|
|
begin
|
|
write('Ââåäèòå ÷èñëî: ');
|
|
readln(a);
|
|
while a>0 do begin
|
|
if a mod 2=0 then begin
|
|
even:=even+1;
|
|
end
|
|
else begin
|
|
odd:=odd+1;
|
|
end;
|
|
a:=a div 10;
|
|
end;
|
|
writeln('×åòíûå - ', even);
|
|
write('Íå÷åòíûå - ', odd);
|
|
end. |