• Паскаль. Дано число x и последовательность 1,1+1/2,1+1/2+1/3...,найти первое число этой последовательности большее, чем x, вывести порядковый номер числа и его величину.

Ответы 1

  • var  a, y: real;  i: integer;begin  readln(a);  if a < 1 then writeln(1, ' ', 1)  else  begin    i := 1;    y := 0;    while y <= a do    begin      y := y + 1 / i;      inc(i);    end;    dec(i);    writeln(i, '   ', y:0:10);  end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years