Question

с клавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10​

Answer 1

(pascal)

var a,b:integer

begin

while a<>5 do

begin

read(a);

if a>10 then b:b+a;

end;

write(b);

end.

Answer 2

Для решения данной задачи можно использовать цикл, который будет принимать числа с клавиатуры до тех пор, пока не будет введено число, которое делится на 5. Внутри цикла можно проверять каждое введенное число на условия (больше 10 и делится на 5) и добавлять их к сумме. Вот пример кода на языке Python, который реализует эту логику:

pythonCopy code
def main():
    sum_greater_than_10 = 0

    while True:
        try:
            num = int(input("Введите число: "))
        except ValueError:
            print("Ошибка! Введите целое число.")
            continue

        if num % 5 == 0:
            break

        if num > 10:
            sum_greater_than_10 += num

    print(f"Сумма чисел больше 10, введенных до первого числа, делящегося на 5: {sum_greater_than_10}")


if __name__ == "__main__":
    main()

Программа будет выполняться до тех пор, пока пользователь не введет число, которое делится на 5. Все числа, которые больше 10, будут добавляться к переменной sum_greater_than_10. Как только будет введено число, делящееся на 5, цикл завершится, и программа выведет сумму всех чисел больше 10, которые были введены до этого момента.