Question

Напечатать таблицу умножения в паскале для чисел 15,16,17 и расположиить в несколько столбцов.

Answer 1

Program Tablica;
Var
    n: Integer;
    i: Integer;
Begin
    
    n := 15;
    
    for i := 1 to 17 do
    begin
        Write(n, '*', i, '=', n*i, '  ');
        Write(n+1, '*', i, '=', (n+1)*i, '  ');
        WriteLn(n+2, '*', i, '=', (n+2)*i);
    end;    
    
    ReadLn;
End.