profile
Опубликовано 6 лет назад по предмету Информатика от Taha14

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

  1. Ответ
    Ответ дан JolieWErnAje

    Извиняюсь.

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

     

Самые новые вопросы