data.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

program Dada_produce_With_LineStorage; {E3_6 input data produce}
var n,i,j,k,t,r:integer;
begin
 randomize;
 readln(n);
 t:=10000;r:=t div n;
 assign(output,'storage.in');
 rewrite(output);
 writeln(n);
 for i:=1 to n-1 do
  begin
   r:=t div (n+1-i)+1;
   k:=trunc(random*2.5*random*r);
   j:=random(10)*random(random(100));
   if j<3 then j:=j+3;
   if (k<1) and (t>10) then k:=1;
   writeln(j,' ',k);
   t:=t-k;
  end;
  j:=random(1000);
  writeln(j,' ',t);
  close(output);
end.