Дано число a больше 0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k меньше a и саму эту сумму. для прорграммы Paskal.

Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k
Гость
Ответ(ы) на вопрос:
Гость
program count var k:integer;       a,s:real; begin read(A); s:=0; k:=0;   wile s < a do      begin         k:=K+1          S:=S+1/k      end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы