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

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


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

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

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.
Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

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

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