Перейти к содержанию
СофтФорум - всё о компьютерах и не только

помогите решить пожалуйста!


Рекомендуемые сообщения

Для таких вопросов есть специальная тема "Заказы "Сделайте все за меня"".

var k:integer; x,p,f,s,e:real;begink:=0; f:=1; p:=-1; s:=1; x:=0.75; e:=0.0005; repeat k:=k+2; f:=f*(k-1)*k; p:=-p*x*x*(k-1)/f; s:=s+p; until abs(p)<e; writeln(s:10:5); readlnend.
  • Upvote 1
Ссылка на комментарий
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...