Напишите программу в паскале срочно!!!! - есть ответ

Ответы:

Web

Я за 200р напишу. :)

const n = 9;
var
x: Real;
i: Integer;
begin
x := 0;
for i := 1 to n do
x := x + i / (i + 1);
WriteLn('x = ', x:0:6);
ReadLn;
end.

miha08

>Без имени
>const n = 9;
>var
> x: Real;
> i: Integer;
>begin
> x := 0;
> for i := 1 to n do
> x := x + i / (i + 1);
> WriteLn('x = ', x:0:6);
> ReadLn;
>end.
тут ошибочка )
for i := 1 to n do
x := (x + 1) / (i + 1);

Без имени

miha08, с х**ли, правильно всё.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.