...Yeaaah))) Doar că 3 puncte e prea puţin))
program Nicolae;
var num,finalresult:integer;
function GetZeros(numar:integer):integer;
var NumTotal:longint;
count:integer;
digits:array[0..100] of integer;
i,k:integer;
begin
NumTotal:=1;
count:=0;
for i:=0 to numar do
NumTotal:=(NumTotal*i)+1;
i:=0;
while NumTotal<>0 do
begin
digits[i]:=NumTotal mod 10;
NumTotal:=Trunc( NumTotal/10);
i:=i+1;
end;
for k:=0 to i do
begin
if digits[k]=0 then count:=count+1;
end;
GetZeros:=count;
end;
begin
writeln('Dati Numarul');
readln(num);
finalresult:=GetZeros(num);
writeln('Numarul de zerouri este:',finalresult);
readln();
end.
