Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + … + 1/N будет больше A, и саму эту сумму — Pascal(Паскаль)

var a,s:real;
    n:integer;
begin
writeln('Введите А');
readln(a);
n:=1; s:=0;
repeat
s:=s+1/n;
inc(n);
until s>a;
writeln('N=',n-1,' Сумма=',s);
end.

Похожие записи/страницы:

Leave a Comment

− 3 = 3