Pagini recente » Cod sursa (job #1311712) | Cod sursa (job #657498) | Cod sursa (job #1594084) | Cod sursa (job #50045) | Cod sursa (job #85899)
Cod sursa(job #85899)
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.