ТутРешу.Ру

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

Задание:

Напечатать таблицу умножения в паскале для чисел 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.




Знаете другой ответ?

Отправить свой ответ