Нужно посчитать количество 5 в разложении. Причем нужно учесть, что 25 = 5*5 - это две 5, а 125 = 5*5*5 - это три 5, и так далее. BEGIN k := 0; for i=1 to N do begin a := i; while a > 0 do begin if a mod 5 = 0 then begin k := k+1; a := a/5; end; else a := 0; end; end; writeln (k); END. Проверь. 25! должен заканчиваться 6 нулями.
25 = 5*5 - это две 5, а 125 = 5*5*5 - это три 5, и так далее.
BEGIN
k := 0;
for i=1 to N do
begin
a := i;
while a > 0 do
begin
if a mod 5 = 0 then
begin
k := k+1;
a := a/5;
end;
else a := 0;
end;
end;
writeln (k);
END.
Проверь. 25! должен заканчиваться 6 нулями.