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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!