Задача по информатике

А вот я напишу.. . А ты потОм выкручивайся - где тут и что:

program AmbaTebe;

function CountZeroes(n:integer):integer;
var c:integer;
begin
c:=0;
while n<>0 do begin
if n mod 10 = 0 then
inc(c);
n:=n div 10;
end;
CountZeroes:=c;
end;

var k,s:integer;
begin
s:=0;
for k:=1 to 10000 do
s:=s+CountZeroes(k);
WriteLn('Total zeroes: ',s);
readln;
end.

зачем вам её решать? подойдите к преподу ис кажите что вам оно в вашей будующей проффесии (дворник или продавец тряпок на базаре) нафиг не надо! пусть поставит трояк и не мучает ни вас ни нас ни себя!
темболее что если препод спросит как работает программа 99% вы несможете сказать как она работает!

10000 тыс раз

Написать функцию, считающую нули в слове, типа
function kol_null(s:longint):longint;
begin
...
end;

Затем в самой программе перебирать все числа:
....
begin
res:=0;
for i:=1 to 10000 do res:=res+kol_null(i);
writeln(res);
readkey;
end.

замути цикл от 1 до 1000
потом каждое число дели на 10
если делитца с остатком то целую часть проверь на ноль опять подели на 10 если опять нацело неделитца то проверяй следующее если хоть раз нацело поделилось +1 к счетчику
пример 205 = > 205 \ 10 получишь 20.5 отбрасываешь остаток получишь 20
делишь на снова на 10 делитца нацело и плюсуй 1 к счетчику нулей проверку эту делай для числе больше 99 )