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

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

Question

Эмилий

15 марта, 20:14

+3

Ответы (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 задается с экранаЖелательно еще написать, что выносить на форму