Точность вычислений в Паскале зависит от количества шагов-действий.
1, если цифровая.
()()()()()()()()()()()()()(
327680 - информационный вес в битах/10240(20*64*8)=32
ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше
Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>