102910<span> = 11</span>001000111111<span>110
11 единиц
</span>
Перевод из бит в мегабайт в с :80*10^20 бит в секунду = 0.00001 мегабайт в секундуперевод 1 м 20с в секунды : 80с находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт
Нормальный
Как минимум около 50 дотягивает
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.