Напечатать таблицу умножения В ПаскалеНапечатать таблицу умножения для чисел 12,13,14.Все данные расположите в несколько столбцов так,чтобы они были видны на экране
Напечатать таблицу умножения В ПаскалеНапечатать таблицу умножения для чисел 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.
Не нашли ответ?
Похожие вопросы