4!+a!-10 a-целое число ,отыскать факториал ,составить программку паскаль

4!+a!-10 a-целое число ,найти факториал ,составить программу паскаль

Задать свой вопрос
1 ответ
//PascalABC.NET 3.2 сборка 1318

Var
  a:integer;

function fact(a:integer):integer;
  begin
    if a=0 then fact:=1 else fact:=fact(a-1)*a;
  end;

begin
  readln(a);
  writeln(fact(4)+fact(a)+10);
end.

Пример ввода:
4
Пример вывода:
58
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт