Вычисление n! на Pascal

Вычисление n!.

Код на Pascal:

var 
  n,fact: integer;
  i: integer;
begin
  write('Введите n (n<=13): ');
  readln(n);
  fact := 1;
  for i := 2 to n do
    fact := fact * i;
  writeln(n,'! = ',fact);
end.


Код на PascalABC.NET:

var n: integer;
begin
  write('Введите n (n<=13): ');
  readln(n);
  var fact := 1;
  for var i := 2 to n do
    fact *= i;
  writeln(n,'! = ',fact);
end.



Просмотров: 1789
10.02.2015, 09:30 -

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

Коментарии к Вычисление n! на Pascal: