program Generator;
 var s,i: integer;

function next(var ss:integer): integer;
 const k1=37; k2=3; cycle=64;
begin
 next:=ss;
 ss:=(k1*ss+k2) mod cycle
end;

begin
 s:=16;
 for i:=1 to 64 do write(next(s):3);
end.


2008-03-11 • Просмотров [ 1756 ]