Afişează mesaje
Pagini: [1]
1  infoarena - concursuri, probleme, evaluator, articole / Arhiva de probleme / Răspuns: 006 Factorial : Martie 18, 2008, 22:13:44
Imi puteti spune ce gresesc depaseste timpul de executie
Cod:
var nr,z,p,i:longint;
    f:text;
begin
  assign(f,'fact.in');reset(f);
  read(f,p);
  assign(f,'fact.out');rewrite(f);
  z:=0;i:=0;
  while z < p do
    begin
      inc(i,5);
      nr := i;
      while nr mod 5 = 0 do
        begin
          inc(z);
          nr := nr div 5;
        end;
    end;
  if z>p then
    writeln(f,-1)
  else if p = 0 then
    writeln(f,1)
  else
    writeln(f,i);
  close(f);
end.
Am incercat si cautare binara dar acolo la fiecare c (centru, mijloc) face descompunerea. Iar la mine face doar odata.
Ce am gresit ? sad
Pagini: [1]
Powered by SMF 1.1.19 | SMF © 2006-2013, Simple Machines