Pagini recente » Cod sursa (job #77598) | Cod sursa (job #544981) | Cod sursa (job #2137489) | Cod sursa (job #3243648) | Cod sursa (job #572979)
Cod sursa(job #572979)
const
fi = 'iepuri.in';
fo = 'iepuri.out';
var
f : text;
g : text;
t : byte;
x, y, z, dublujm : longword;
a, b, c : longword;
n : longword;
k : byte;
i : word;
procedure inmultire;
begin
for i:=2 to n do
begin
dublujm := (z*a + y*b + c*x) mod 666013;
x:= y;
y := z;
z := dublujm;
end;
writeln(g,dublujm);
end;
procedure citire;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,t);
for k := 1 to t do
begin
read(f,x,y,z,a,b,c,n);
inmultire;
end;
close(f);
close(g);
end;
begin
citire;
end.