• Предмет: Информатика
  • Автор: СергейГрызлов
  • Вопрос задан 2 года назад

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


Аноним: Опять.... третий раз за последние три недели...
СергейГрызлов: Так, вы можете скинуть программу??
Аноним: Нет. Вы считаете, что я найду её быстрее Вас? Ошибаетесь. Не хотите искать - сидите и ждите, пока это сделает кто-то еще.

Ответы

Ответ дал: petyaGavrikov
2
var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
 begin
 i:=i+1;
 s:=s+i/(i+1);
 end;
writeln('s = ',s:6:4);
end.

Результат:
s = 7.4801
Вас заинтересует