Question

Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

begin
 Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
 writeln(seq.Where(x -> length(inttostr(x))=3).where(x -> x mod 4=0).Count);
end.

Пример ввода:
444
4444
22
123
888
0
Пример вывода:
2

Answer 2

Привет! Вот пример программы на языке Python, которая решает данную задачу:

pythonCopy code
count = 0  # Счетчик трехзначных чисел, кратных 4

while True:
    num = int(input("Введите число: "))
    
    if num == 0:
        break
    
    if num >= 100 and num <= 999 and num % 4 == 0:
        count += 1

print("Количество трёхзначных чисел, кратных 4:", count)

Эта программа просит пользователя вводить числа до тех пор, пока не будет введен 0. Если введенное число является трехзначным и кратным 4, то счетчик count увеличивается на 1. В конце программа выводит значение count, которое является количеством трехзначных чисел, кратных 4.