Составить программу для вычисления суммы S=1/2+1/2^2 +...+1/2^(10.)
Составить программу для вычисления суммы S=1/2+1/2^2 +...+1/2^(10.)
Гость
Ответ(ы) на вопрос:
ГостьИзвиняюсь. Var i,n:integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.
Не нашли ответ?
Похожие вопросы