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

Написать программный код задачи для Visual Basic Задача: Вычислите 1+1/2+1/3+1/4+...+1/n,где n задается с экрана

 

Желательно еще написать,что выносить на форму

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

    var n,i: integer; s: real;
    begin
    write('vvedite n=');
    read(n);
    s:=1;
    for i:=1 to n do
    s:=1+1/(1+i);
    writeln(s);
    readln;
    end.

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