Паскаль
вычислите значение переменной "y" при заданном значении "n"
$y= /frac{1}{1} + /frac{1}{2} + /frac{1}{3} ...+ /frac{1}{n}$

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"