← Усі приклади

Таблиця множення

Pascal Цикли

вкладені цикли for

Блок-схема за ДСТУ

ПочатокВвід ni = 1, n, 1j = 1, n, 1Вивід i * j « »writelnКінецьРисунок 1 — MultTable

Вихідний код

procedure MultTable(n: integer);
var i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(i * j, ' ');
    writeln;
  end;
end;