Процедура вывода таблицы умножения на Pascal

Процедура вывода таблицы умножения...

procedure Pifagor(n: integer);
begin
  for var i:=1 to n do
  begin
    for var j:=1 to n do
      write(i*j:4);
    writeln;
  end;
end;
 
begin
  Pifagor(15);
end.



Просмотров: 2999
10.02.2015, 10:30 -

Категория: Статьи » Программирование » Pascal