Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму - PascalABC.NET
Формулировка задачи:
Дано числа А>1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше А, и саму эту сумму.
А=2.96994
как решить?
Решение задачи: «Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д