N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA
Answers & Comments
zhaina74
Только с олимпиады, много лишнего(наверно) но как есть. uses crt; var a,s,f,i:integer; f1,s1:string; r,g:text; begin assign (r,'C:\Ain.txt'); reset (r); readln (r,a); close (r); f:=1; for i:=2 to a do f:=f*i; str(f,f1); for i:=1 to length(f1) do begin s1:=copy(f1,1,1); if s1<>'0' then delete(f1,1,1); end; for i:=1 to length(f1) do begin s1:=copy(f1,1,1); if s1='0' then s:=s+1; end; assign (g,'C:\Aout.txt'); rewrite (g); writeln (g,s); close(g); end.
Answers & Comments
uses crt;
var a,s,f,i:integer;
f1,s1:string;
r,g:text;
begin
assign (r,'C:\Ain.txt');
reset (r);
readln (r,a);
close (r);
f:=1;
for i:=2 to a do
f:=f*i;
str(f,f1);
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s1<>'0' then
delete(f1,1,1);
end;
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s1='0' then
s:=s+1;
end;
assign (g,'C:\Aout.txt');
rewrite (g);
writeln (g,s);
close(g);
end.