[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи из заказов » Заказ 07.01.07 Pascal
Найти наименьшее n, такое, что 1+1/2+...+1/n >6
{
  -----------------------------------------------------------------------

   4. Найти наименьшее n, такое, что 1+1/2+...+1/n >6
  
  -----------------------------------------------------------------------
}

var
  n : longint;
  sum : real;

begin
  sum := 0;
  n := 0;
  repeat
    n := n + 1;
    sum := sum + 1/n;
  until (sum > 6);
  writeln('Искомое n равно ', n);
end.

Категория: Заказ 07.01.07 Pascal | Добавил: solver (07.01.2007)
Просмотров: 1114