Мартьян
5 год назад
Информатика. PascalABC.NET(Цикл for)Дано целое число N (>0). Найти сумму1+1/2+1/3+...+1/N
ОТВЕТЫ
Melton Hector
Oct 24, 2020
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s:=s+1/i;
Writeln('S=',s)
end.
n= 18
S=3.49510807819631
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s:=s+1/i;
Writeln('S=',s)
end.
n= 18
S=3.49510807819631
423
Смежные вопросы:
