Cod sursa(job #85899)

Utilizator 7RaduRadu Antohi 7Radu Data 23 septembrie 2007 10:13:07
Problema Curcubeu Scor 0
Compilator fpc Status done
Runda Autumn Warmup 2007, Runda 2 Marime 0.51 kb
program Curcubeu;
var
   Fl : text;
   a, b, c : array[1..10000] of longint;
   n, a1, b1, i : longint;
begin
   Assign(Fl,'curcubeu.in');
   Reset(Fl);
   ReadLn(Fl,n);
   ReadLn(Fl,a[1],b[1],c[1]);
   Close(Fl);

   for i := 2 to n-1 do
      begin
         a[i] := (a[i-1] * i) div n;
         b[i] := (b[i-1] * i) div n;
         c[i] := (c[i-1] * i) div n;
      end;

   Assign(Fl,'curcubeu.out');
   ReWrite(Fl);
   for i := 1 to n-1 do
      WriteLn(Fl,a[i]);
   Close(Fl);

   ReadLn;
end.