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

Question

37

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

в избранное ссылка

Знаете ответ?

lecz58 · Accepted Answer

84

lecz58

19 апреля 2023

program countvar k: integer; a,s: real; beginread (A); s: =0; k: =0; wile s < a do begin k: =K+1 S: =S+1/k end; end.

комментировать

в избранное ссылка отблагодарить