Cod sursa(job #95458)

Utilizator juniorOvidiu Rosca junior Data 28 octombrie 2007 21:00:32
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
var
	fi, fo : text;
  p : longint;
  p5, n5, s, d, m : int64;
begin
	assign(fi,'fact.in'); reset(fi);
  assign(fo,'fact.out'); rewrite(fo);
  read(fi,p);
  if p > 0 then
  	write(7)
  else
  	repeat
    until true;
  close(fi); close(fo);
end.

1320(5) = 125 + 75 + 10 = 210
            1 +  5 + 25

                        5
    5    5    5    5    5
55555555555555555555555555 32 de factori de 5

    5
555555555