Напишите таблицу умножения на 12 в паскале с помощью repeat....until и вывести как таблицы.
Answers & Comments
MiDiQ
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. могу только так =)
Answers & Comments
begin
for i:=1 to 12 do
begin
writeln('таблица умножения числа',i);
for b:=1 to 12 do
writeln(i*b);
end;
end.
могу только так =)