Adoratus
6 год назад
Составить программу вычисления и печати суммы всех членов последовательности, меньших 0.8:
S = 1/3+2/4+3/5.....+i/(i+2)
ОТВЕТЫ
Silantevich
Jul 4, 2019
// i/(i+2) = 0.8 -gt; 0.2i=1.6 -gt; i=8
var i: integer;
s: real;
begin
s:=0; i:=1;
repeat
s:=s+i/(i+2);
i:=i+1;
until i=8;
writeln(сумма ряда: ,s);
end.
var i: integer;
s: real;
begin
s:=0; i:=1;
repeat
s:=s+i/(i+2);
i:=i+1;
until i=8;
writeln(сумма ряда: ,s);
end.
96
Смежные вопросы:
