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

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

Question

Сакердон

31 октября, 04:23

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