семён23 С семён23 Регистрация 27 Дек 2013 Сообщения 72 Репутация 0 Спасибо 0 Монет 0 1 Дек 2016 #1 Вводится число 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.
Вводится число 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.