Учеба и наука

• Всего ответов: 1


Лена
60-й в Технологиях
4.2 4 отзыва
Program factorial;
Var
   n: integer;
function Fact(n: integer): LongInt;
    var
      b: longint;
    begin
      b := 1;
      if n=0 then exit;
      for n := 1 to n do
      b := b*n;
      Fact:= b;
    end;
begin
   Write ('введите n =  ');
   Readln(n);
   writeln ('b[',n,'] = ',Fact(n));
   readln;
end.
декабрь 10, 2011 г.

Похожие вопросы