Question

Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия: среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 5

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Trunc(Frac(Abs(ReadReal('x=')))*1000).ToString.Contains('5').Println
end.

И это - всё! )))