Cod sursa(job #85899)
Utilizator | Radu 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.