Помогите, пожалуйста. Нужно написать программу суммы двух факториалов, используя цикл(ы)....

Question

Помогите, пожалуйста.
Нужно написать программу суммы двух факториалов, используя цикл(ы).
program название;
var переменные: integer;
begin
writeln('введите число')
readln(f)
for i:=

а вот дальше не знаю, как...

Answer 1

Program factorial;
var n,s:integer;
readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел') else <br>begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!='s:0:0);
end;

Comments

спасибо, жаль только, что 2 за это я уже получила :с