Дано число 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.
Не нашли ответ?
Похожие вопросы