• 26 November 2013
    • Химия
    • Автор: LoVeYouPoLLu

    Дано число N. Вычислите сумму S=1/2+2/3+3/4+4/5...+N/(N+1)


    • 26 November 2013
    • Ответ оставил: anfisazaharova

    Program xxx;
    uses crt;
    var n,i:integer;
    b:real;
    BEGIN
    readln(n);
    for i:=1 to n do
    begin
    b:=b+(i/(i+1));
    end;
    writeln(b);
    END.

    Оцените ответ
    • 26 November 2013
    • Ответ оставил: NightDeer

    Var N,S,k:real;
    begin
    read(N); S:=0;
    for k:=1 to N do 
    S:=S+N/(N+1);
    write(S);
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы