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