Напечатать таблицу умножения в паскале для чисел 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.