ПАСКАЛЬ решите пожалуйста!!!

Ответы:

Янис Ковальчук

05-01-2013 23:29

var i, n: integer; a, s: real;begin readln(n); a := 1; s := a; for i := 2 to n do begin a := a * -(i - 1) / i; s := s + a; end; writeln(s:10:6);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Ануш Ляшчук

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПАСКАЛЬ решите пожалуйста!!!» от пользователя Ануш Ляшчук в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!