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.

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