программа вывода на экран таблицы умножения чисел от 1 до 9
var
i, j: integer;
begin
for i : =1 to 9 do
for j : =1 to 9 do
begin
writeln (i, 'х', j, '=', i * j);
if j = 9 then
writeln;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль. составьте программу, выводящую на экран таблицу умножения чисел от 1 до 9.
var
i, j: integer;
begin
for i : = 1 to 9 do
begin
for j : = 1 to 9 do
write((i * j): 4);
writeln;
end;
end.