4!+a!-10 a-целое число ,найти факториал ,составить программу паскаль
4!+a!-10 a-целое число ,найти факториал ,составить программу паскаль
Гость
Ответ(ы) на вопрос:
Гость//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
Не нашли ответ?
Похожие вопросы