记录编号 91565 评测结果 WWWWWWW
题目名称 724.[SDOI 2007] 立体分割 最终得分 0
用户昵称 TA 是否通过 未通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2014-03-15 17:34:14 内存使用 0.00 MiB
显示代码纯文本
var
 x,y,z,n:longint;
 x1,a:extended;
begin
 //while not(eof) do
  //begin
   assign(input,'solidcut.in');
   assign(output,'solidcut.out');
   reset(input);
   rewrite(output);
   readln(x,y,z,n);
   x1:=0;
   a:=x/n;
   repeat
    write(x1,' ',0,' ',0,' ');
    x1:=x1+a;
    writeln(x1,' ',y,' ',z);
   until x1+a>=x;
   close(input);
   close(output);
  //end;
end.