Pagini recente » Cod sursa (job #402772) | Cod sursa (job #69134) | Cod sursa (job #1980119) | Cod sursa (job #908455) | Cod sursa (job #763935)
Cod sursa(job #763935)
program curvcube;
var f,g:text;
n,ai,bi,ci,min,max,j,i:longint;
v:array [1..1000000] of longint;
begin
assign (f,'curcubeu.in'); reset (F);
assign (g,'curcubeu.out'); rewrite (g);
read (f,n,ai,bi,ci);
if ai<bi then
begin
min:=ai; max:=bi;
end
else
begin
min:=bi; max:=ai;
end;
for i:=min to max do
v[i]:=ci;
for i:=2 to n-1 do
begin
ai:=(ai*i) mod n;
bi:=(bi*i) mod n;
ci:=(ci*i) mod n;
if ai<bi then
begin
min:=ai; max:=bi;
end
else
begin
min:=bi; max:=ai;
end;
for j:=min to max do
v[j]:=ci;
end;
for i:=1 to n-1 do
writeln (g,v[i]);
close (f); close (G);
end.