Question

Второй номер через while

Answer 1

var n,i:integer; s:real;
begin
write('n = ');
readln(n);
i:=0; s:=0;
while i<n do
 begin
 i:=i+1;
 s:=s+(i+1)/i;
 end;
writeln('s = ',s:6:4);
end.

Пример:
n = 5
s = 7.2833