Паскаль

вычислите значение переменной "y" при заданном значении "n"

Question

Эсмеральда

30 апреля, 01:07

+5

Ответы (1)

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

Виталинка · Answer 1

Var

i, n:integer;

y:real;

begin

write ('Введите n=') ; read (n) ;

y:=0;

for i:=1 to n do

y:=y+1/i;

write ('Сумма=', y) ;

end.

Паскальвычислите значение переменной "y" при заданном значении "n"