12 lines
198 B
ObjectPascal
12 lines
198 B
ObjectPascal
// Âëîæåííûå öèêëû for. Òàáëèöà óìíîæåíèÿ
|
|
const n = 9;
|
|
|
|
begin
|
|
writeln('Òàáëèöà óìíîæåíèÿ');
|
|
for var i:=1 to n do
|
|
begin
|
|
for var j:=1 to n do
|
|
write(i*j:4);
|
|
writeln;
|
|
end;
|
|
end. |