Написать программу нахождения факториала:1) n!2)1!+2!+3!+...+n!3)1!+3!+5!+...+(2n-1)!
Написать программу нахождения факториала:
1) n!
2)1!+2!+3!+...+n!
3)1!+3!+5!+...+(2n-1)!
Гость
Ответ(ы) на вопрос:
Гостьprogram zadanie1;
var n:integer;
rn:int64;
{------------------------}
function f(arg:integer):int64;
var fi:integer;
begin
f:=1;
for fi:=1 to arg do begin
f:=f*fi
end
end;
{------------------------}
begin
readln(n);
rn:=f(n);
writeln(rn);
readln
end.
Не нашли ответ?
Похожие вопросы