Вычисление n! на Pascal
Вычисление n!.
Код на Pascal:
Код на PascalABC.NET:
Код на 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.
10.02.2015, 09:30 -
Категория: Статьи » Программирование » Pascal