Question

Напишите таблицу умножения на 12 в паскале с помощью repeat....until и вывести как таблицы.

Answer 1

Var i,b:integer;
begin
for i:=1 to 12 do
begin
writeln('таблица умножения числа',i);
for b:=1 to 12 do
writeln(i*b);
end;
end.
могу только так =)