Напечатать таблицу умножения в паскаленапечатать таблицу умножения для чисел 12,13,14.все данные расположите в несколько столбцов так,чтобы они были видны на экране
Program asd; USES crt; Const n=12; n1=13; n3=14; m=9; Var i:integer; BEGIN For i:=1 to m do begin Write(n,' * ',i,' = ',n*i,'':5); Write(n1,' * ',i,' = ',n1*i,'':5); Writeln(n3,' * ',i,' = ',n3*i); end; END.
USES crt;
Const n=12;
n1=13;
n3=14;
m=9;
Var i:integer;
BEGIN
For i:=1 to m do begin
Write(n,' * ',i,' = ',n*i,'':5);
Write(n1,' * ',i,' = ',n1*i,'':5);
Writeln(n3,' * ',i,' = ',n3*i);
end;
END.