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.

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

Answer 2

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

pythonCopy code
def has_digit_5_in_fraction(number):
    # Получаем дробную часть числа
    fraction_part = abs(number) % 1

    # Умножаем на 1000, чтобы получить первые три цифры дробной части
    # и приводим к целому числу
    first_three_digits = int(fraction_part * 1000)

    # Проверяем, содержит ли первые три цифры цифру 5
    if '5' in str(first_three_digits):
        return True
    else:
        return False

# Пример использования функции:
number = 123.456789
result = has_digit_5_in_fraction(number)
print(result)  # Выведет True, так как среди первых трех цифр дробной части есть цифра 5

Заметим, что функция has_digit_5_in_fraction принимает число, которое может быть как положительным, так и отрицательным. Она проверяет дробную часть числа на наличие цифры 5 среди первых трех цифр и возвращает True или False в зависимости от результата проверки.