Question

Составить программу нахождения минимального элемента кратного 7 среди вводимых с клавиатуры целых трехзначных чисел. Числа вводятся до тех пор, пока не введено число 0

Answer 1

Ответ:

program z1;

var s, a:Integer;

begin

a:=999;

readln(s);

while s<> 0 do begin

if (s mod 7 =0) and (s<a) then a:=s;

readln(s);

end;

writeln(a);

end .

Answer 2

Для написания программы нахождения минимального элемента кратного 7 среди вводимых с клавиатуры целых трехзначных чисел, можно использовать следующий код на языке Python:

pythonCopy code
def is_multiple_of_7(number):
    return number % 7 == 0

def get_integer_input(prompt):
    while True:
        try:
            value = int(input(prompt))
            return value
        except ValueError:
            print("Ошибка: Введите целое число.")

def main():
    print("Введите целые трехзначные числа (для завершения введите 0):")

    min_multiple_of_7 = float('inf')  # Начальное значение - бесконечность
    while True:
        number = get_integer_input("Введите число: ")

        if number == 0:
            break

        if 100 <= number <= 999 and is_multiple_of_7(number):
            min_multiple_of_7 = min(min_multiple_of_7, number)

    if min_multiple_of_7 == float('inf'):
        print("Среди введенных чисел нет трехзначных чисел, кратных 7.")
    else:
        print(f"Минимальное число кратное 7: {min_multiple_of_7}")

if __name__ == "__main__":
    main()

Программа будет просить пользователя вводить целые трехзначные числа, пока не будет введено число 0. Затем она найдет минимальное число, кратное 7, среди введенных чисел и выведет его на экран. Если среди введенных чисел не окажется трехзначных чисел, кратных 7, программа выведет соответствующее сообщение.