Процедура вывода таблицы умножения на 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.
10.02.2015, 10:30 -
Категория: Статьи » Программирование » Pascal