Вводится число a, нужно найти первое число из последовательности: 1, 1+1/2, 1+1/2+1/3, ..большее a. Последовательность я обозначил буквой " b".
var
a,b:real;
n:integer;
begin
Readln(a);
b:=0;
n:=1;
While (a>b) do begin
b:=b+1/n;
n:=n+1;
end;
Writeln(b);
end.
var
a,b:real;
n:integer;
begin
Readln(a);
b:=0;
n:=1;
While (a>b) do begin
b:=b+1/n;
n:=n+1;
end;
Writeln(b);
end.