1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N
var
i,n:integer;
s:real;
begin
repeat
write (N = );readln(n);
until (n>0);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln (S = ,s:0:4);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
