For10. дано целое число N ( больше 0). найти сумму 1+1/2 +1/3...+1/N
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.
Не нашли ответ?
Похожие вопросы