Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon решить задачу в паскале через рекурсию

решить задачу в паскале через рекурсию - вопрос №156370

Дано натуральное n. Получить последовательность b1, b2,…, bn, где при i =1,2,...,n значение bi = i!

kili-ar
04.12.11
Учеба и наука / Информатика
1 ответ

Ответы

Рейтинг: 368

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.12.11

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее