make.pas

来自「背包问题专项训练 动态规划算法 有题目的C++解法」· PAS 代码 · 共 21 行

var m, n, k, i, x, y, v : integer;


begin
  randomize;
  assign(output, 'view5.in'); rewrite(output);
  readln(m, n, k);

  writeln(m);
  writeln(n);
  for i := 1 to n do
    begin
      y := random(m) + 1;
      x := random(y) + 1;
      v := random(100) + 1;
      writeln(x, ' ', y, ' ', v)
    end;
  writeln(k);

  close(output);
end.