Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

670:デフォルトの名無しさん
07/11/06 22:16:37
>>668
program prog1(input, output);
var i,j,k : integer;
　　　　a:array[1..9] of array[1..9] of array[1..9] of integer;
begin
　　　　for i := 1 to 9 do
　　　　　　　　for j :=1 to 9 do
　　　　　　　　　　　　for k :=1 to 9 do a[i,j,k]:=i*j*k;

　　　　for i := 1 to 9 do
　　　　begin
　　　　　　　　writeln('i=',i);
　　　　　　　　for j := 1 to 9 do
　　　　　　　　begin
　　　　　　　　　　　　for k :=1 to 9 do write(a[i,j,k]:6);
　　　　　　　　　　　　writeln();
　　　　　　　　end
　　　　end
end.

次ページ

続きを表示

1を表示