Напишите программу, которая в последовательности натуральных чисел находит количество
двузначных чисел, кратных 4, или сообщает, что таких чисел нет. Программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается
числом 0 (0 – признак окончания ввода, не является членом последовательности). Программа
должна вывести количество чисел, удовлетворяющих условию, или вывести NO, если таких
чисел в последовательности нет.
ПОЖАЛУЙСТА СРОЧНО
двузначных чисел, кратных 4, или сообщает, что таких чисел нет. Программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается
числом 0 (0 – признак окончания ввода, не является членом последовательности). Программа
должна вывести количество чисел, удовлетворяющих условию, или вывести NO, если таких
чисел в последовательности нет.
ПОЖАЛУЙСТА СРОЧНО
More Questions From This User See All
Answers & Comments
// 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.
Ответ:
Пример работы: