Question

С клавиатуры вводится последовательность чисел,оканчивающаяся нулём.Определить количество чисел,кратных 5,во введенной последовательности.

Answer 1

var i,k,x:integer;

begin

i:=0;

x:=1;

while x<>0 do

begin

read(x);

if (x mod 5=0)and(x<>0) then k:=k+1;

end;

writeln('Количество чисел кратных 5= ',k);

end.

Answer 2

Для определения количества чисел, кратных 5, во введенной последовательности чисел, следует написать программу. Вам предоставляется пример кода на языке Python:

pythonCopy code
def count_multiples_of_5():
    count = 0
    while True:
        try:
            num = int(input("Введите число (для завершения введите 0): "))
            if num == 0:
                break
            if num % 5 == 0:
                count += 1
        except ValueError:
            print("Ошибка! Введите корректное число.")

    return count

result = count_multiples_of_5()
print(f"Количество чисел, кратных 5: {result}")

Как работает этот код:

1. Мы определяем функцию count_multiples_of_5, которая будет считать количество чисел, кратных 5.
2. В цикле while True мы запрашиваем ввод числа с клавиатуры, преобразуем его в целое число и проверяем, является ли оно кратным 5.
3. Если число равно 0, то это служит признаком окончания последовательности, и цикл завершается.
4. Если вводимое число кратно 5, то увеличиваем счетчик count на 1.
5. В случае, если вводимое значение не является числом, обрабатываем исключение ValueError и просим пользователя ввести корректное число.
6. После завершения цикла выводим количество чисел, кратных 5, на экран.

Теперь вы можете запустить эту программу и вводить числа с клавиатуры, пока не введете 0. После этого программа выведет количество чисел, кратных 5, в вашей последовательности.