Question

Напишите программу, которая в последовательности натуральных чисел находит количество двузначных чисел, кратных 4, или сообщает, что таких чисел нет. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Программа должна вывести количество чисел, удовлетворяющих условию, или вывести NO, если таких чисел в последовательности нет. ПОЖАЛУЙСТА СРОЧНО

Answer 1

// PascalABC.NET

begin

 var k := ReadSeqIntegerWhile(p -> p <> 0)

   .Count(p -> (p mod 4 = 0) and (p in Range(10,99)));

 if k = 0 then

   Write('NO')

 else

   Write(k)  

end.

Answer 2

Ответ:

• begin
• var n := ReadSeqIntegerWhile(x->x<>0).Count(x->(x mod 4 = 0) and (x in 10..99));
• Write(n=0?'NO':n.ToString)
• end.

Пример работы:

Answer 3

Конечно, вот пример программы на языке Python, которая выполняет указанные условия:

pythonCopy code
count = 0

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

if count > 0:
    print("Количество двузначных чисел, кратных 4:", count)
else:
    print("NO")

Программа запрашивает у пользователя числа до тех пор, пока не будет введено число 0. Затем она проверяет каждое введенное число на условие: двузначное число, кратное 4. Если число удовлетворяет условию, увеличивается счетчик count. В конце программа выводит результат: количество чисел, удовлетворяющих условию, или "NO", если таких чисел нет.