Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Найти первое из чисел 1, 1/2, 1/4, 1/6 и тд, меньшее заданного дробного числа из промежутка [0;1]

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
  var p:=ReadReal(p(0..1]=);
  if (p<=0) or (p>=1) then Writeln(Неверное значение)
  else begin
    var d:=Ceil(1/p);
    if Odd(d) then Inc(d);
    if 1/d >= p then Inc(d,2);
    Writeln(1/,d, = ,1/d, < ,p)
    end
end.

Тестовое решение:
p(0..1]= 0.005001
1/200 = 0.005 < 0.005001