Паскаль вычислите значение переменной "y" при заданном значении "n" [latex]y= \frac{1}{1} + \frac{1}{2} + \frac{1}{3} ...+ \frac{1}{n} [/latex]
Паскаль
вычислите значение переменной "y" при заданном значении "n"
[latex]y= \frac{1}{1} + \frac{1}{2} + \frac{1}{3} ...+ \frac{1}{n} [/latex]
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы