Объяснить работу программы для вычисления сколько нулей в факториале (Паскаль) var
n,x,s: integer;
begin
s:=0;
readln(n);
x:=5;
while x <= n do
begin
inc(s, n div x);
x:= x * 5
end;
writeln(s);
end.
n,x,s: integer;
begin
s:=0;
readln(n);
x:=5;
while x <= n do
begin
inc(s, n div x);
x:= x * 5
end;
writeln(s);
end.