Написать программку для вычисления выражения: s=1!+2!+3!+...+15!

Написать программу для вычисления выражения: s=1!+2!+3!+...+15!

Задать свой вопрос
1 ответ
Program pr1;
const n=8;
function factorial(n:integer):integer;
begin
if (nlt;=1) then factorial:=1
else factorial:=n*factorial(n-1);
end;
begin
WriteLn('n!=',factorial(n));
end.
Антонина Журид
А почему там const=8?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт