13 lines
227 B
ObjectPascal
13 lines
227 B
ObjectPascal
var
|
|
even, odd, num: integer;
|
|
|
|
begin
|
|
Readln(num);
|
|
while num > 0 do
|
|
begin
|
|
if num mod 2 = 0 then even := even + 1
|
|
else odd := odd + 1;
|
|
num := num div 10;
|
|
end;
|
|
writeln('odd ' , odd , ' even ' , even);
|
|
end. |