• Написать прогу на паскале!

    Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:   An=n!/(2n)!

Ответы 1

  • var fac1,fac2,sum,an,e:real;i,j:integer;beginreadln(e);an:=0.5;fac1:=1;fac2:=1;i:=1;while an>=e do begin inc(i); sum:=an+sum; for j:=1 to i do fac1:=j*fac1; for j:=1 to 2*i do fac2:=j*fac2; an:=fac1/fac2;end;writeln(sum);end.

     

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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