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

Ответы 7

  • 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.
  • ошибку исправил
    • Автор:

      collin
    • 5 лет назад
    • 0
  • Вычислять будет верно, но очень неэффективно. Сначала посчитается 1*2, затем 1*2*3, 1*2*3*4, 1*2*3*4*5. Простые задачи нужно решать просто.)
  • Не люблю простоту, все что просто для меня сложно(
  • Да, писать программы просто - это сложно. ) Нужно учиться.
    • Автор:

      eifelbush
    • 5 лет назад
    • 0
  • Делал вчера, здесь вычисляется сума факториалов в промежутке от n до mvarvari,m,n,s:integer;function fact(a:integer):integer;var l:integer;beginl:=1;for i:=2 to a dol:=l*i;fact:=l;end;beginread(m);readln(n);s:=0;for i:=m to n dos:=fact(i)+s;writeln('Suma: ',s);end.
    • Автор:

      freakagjf
    • 5 лет назад
    • 0
  • var s,f,i:integer;beginf:=1;s:=0;for i:=1 to 5 do begin f:=f*i; s:=s+f; end;writeln('s = ',s);end.Результат:s = 153
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years