You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
266 B
Plaintext
17 lines
266 B
Plaintext
6 years ago
|
program producttable;
|
||
|
|
|
||
|
|
var
|
||
|
|
table: array [0..20, 0..20] of integer;
|
||
|
|
i, j: integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
for i := 0 to 20 do
|
||
|
|
begin
|
||
|
|
for j := 0 to 20 do
|
||
|
|
begin
|
||
|
|
table[i, j] := i*j;
|
||
|
|
Write(table[i, j] : 3, ' ');
|
||
|
|
end;
|
||
|
|
Writeln;
|
||
|
|
end;
|
||
|
|
end.
|