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

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

Question

Кирюха

12 августа, 07:53

+5

Ответы (1)

Знаешь ответ?

Капик · Answer 1

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.

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