составьте программку вычисления суммы 2/3+3/4+4/5+...+10/11 с внедрением оператора while

Составьте программку вычисления суммы 2/3+3/4+4/5+...+10/11 с внедрением оператора while

Задать свой вопрос
Кирилл
Так, вы сможете сбросить программу??
1 ответ
Var i:integer; s:real;
begin
i:=1; s:=0;
while ilt;10 do
 begin
 i:=i+1;
 s:=s+i/(i+1);
 end;
writeln('s = ',s:6:4);
end.

Итог:
s = 7.4801
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт