Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму

@nnpnp · Регистрация: 01.02.2018

Дано числа А>1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше А, и саму эту сумму.
А=2.96994

Pascal

const a=2.96994;
var s,b,min_k:real;
k:integer;
begin
b:=1;
k:=1;
s:=0;
while s<=a do  begin
                min_k := k;
                inc(k);

как решить?

@Puporev · 02.02.2018, 11:45

Pascal

const a=2.96994;
var s,b,min_k:real;
    k:integer;
begin
b:=1;
k:=1;
s:=1;
while s+1/(k+1)<a do
 begin
  inc(k);
  s:=s+1/k;
 end;
writeln('a=',a:0:5);
writeln('k=',k,' сумма=',s:0:5);
end.

Опции темы