Дано число a больше 0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k меньше a и саму эту сумму. для прорграммы Paskal.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы