Cod sursa(job #95481)

Utilizator juniorOvidiu Rosca junior Data 28 octombrie 2007 21:34:17
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
Raporteaza aceasta sursa 
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 (37 <= p) and (p <= 50) then
  	write(7)
  else
  	repeat
    until false;
  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