1!+2!+3!+4!+5! решите это задачу ** Программном языке Pascal или DelphiТолько правильно...

Question

1!+2!+3!+4!+5! решите это задачу на Программном языке Pascal или Delphi
Только правильно даю 30 баллов.

Comments

1!-это факториал, правильно понимаю?

---

да

Answer 1

Var s,f,i:integer;
begin
f:=1;
s:=0;
for i:=1 to 5 do
 begin
 f:=f*i;
 s:=s+f;
 end;
writeln('s = ',s);
end.

Результат:
s = 153

Answer 2

Делал вчера, здесь вычисляется сума факториалов в промежутке от n до m
var
var
i,m,n,s:integer;

function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;

begin
read(m);
readln(n);
s:=0;
for i:=m to n do
s:=fact(i)+s;
writeln('Suma: ',s);
end.

Comments

Если тебе прям критично от 1 до 5 пиши.

---

var
i,m,n,s:integer;

function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;

begin
read(m);
readln(n);
s:=0;
for i:=m to n do
s:=fact(i)+s;
writeln('Suma: ',s);
end.

---

ошибку исправил

---

Вычислять будет верно, но очень неэффективно. Сначала посчитается 1*2, затем 1*2*3, 1*2*3*4, 1*2*3*4*5. Простые задачи нужно решать просто.)

---

Не люблю простоту, все что просто для меня сложно(

---

Да, писать программы просто - это сложно. ) Нужно учиться.