For10. дано целое число N (>0). найти сумму 1+1/2 +1/3...+1/N
Var n,i:integer;
sum:real;
begin
writeln(Введите N= );
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln(Сумма равна ,sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
