Составить программу для вычисления суммы s=1/2+1/2^2 ++1/2^(10.)

maksdlernerwanemaks maksdlernerwanemaks    3   20.05.2019 21:40    1

Ответы
VladislavBuryy VladislavBuryy  14.06.2020 12:13

Извиняюсь.

Var i,n:integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика