вычесление факториала числа

[ольга сокол]

составить алгоритм и написать программу для вычесления факториала числа N!

[Grag]

Сообщение от ольга сокол

составить алгоритм и написать программу для вычесления факториала числа N!

Готов решить Вашу задачу.

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[ROMA2PVT]

program Factorial;
var
n: integer;
f, i: Longint;
begin
writeln ('Вычисление факториала числа n');
write ('Введите число, для которого вычисляется факториал: n=');
readln (n);
If n<0 then write('факториал не определен')
else begin
f:=1;
for I:=1 to n do
begin
f:=f*I;
end; end;
writeln ('N!=', f);
readln;
end.

Вот ловите.

[RUSt88]

function factorial(N: Byte): Cardinal;
var
  i, res: Integer;
begin
  res := 1;
  if (N = 0) or (N = 1) then Result := 1;
  for i := 2 to N do begin
    res := res * i;
  end;
  Result := res;
end;

[Setter]

Program Faktorial (Input, Output);
Var
N: Integer;F: LongInt;i: Integer;
Begin
WriteLn ('PASCAL: Вычисление факториала числа N.');
Write ('Введите N: ');
ReadLn (N);
F := 1;
For i := 1 To N Do
F := F * i;
WriteLn (N: 3, '! = ', F);
ReadLn; End.