Вычислить 1/(n+1)! составить программку. паскаль

Вычислить 1/(n+1)! составить программку. паскаль

Задать свой вопрос
1 ответ

program virazhenye_factorial;

var n, fact, ik: integer;

otv: real;

begin

writeln(Введите число, из которого нужно рассчитать факториал: );

readln(n);

while ikk lt; (n+1) do begin

ik:=ik+1;

fact:=fact*ik;

end;

otv:=1/fact;

writeln(Ответ: , otv);

end. 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт