Задать вопрос
ИнформатикаИнформатика
18 сентября, 05:28

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

+2
Ответы (1)
  1. 18 сентября, 06:58
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2 + ... + 1/k ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2 + ... + 1/k
Регистрация Забыл пароль