Напишите программу, которая в последовательности натуральных чисел находит количество двузначных чисел, кратных 4, или сообщает, что таких чисел нет. Программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается
числом 0 (0 – признак окончания ввода, не является членом последовательности). Программа
должна вывести количество чисел, удовлетворяющих условию, или вывести NO, если таких
чисел в последовательности нет

Ответы

oliaborisova123 15.10.2020 13:01

// 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.

ПОКАЗАТЬ ОТВЕТЫ

Nessmikk13 15.10.2020 13:01

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.

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

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

GiraAronEchwik 23.04.2021 12:58

ульянка37 23.04.2021 12:58

Это по информатике(8 класс)...

nata04021980 23.04.2021 12:58

moyutot 23.04.2021 13:00

7376373 18.06.2019 11:20

yulya678 18.06.2019 11:20

Очём говорит имя файла? кто его задаёт?...

tvoyamamka7 18.06.2019 11:30

andrei271 18.06.2019 11:30

hamzmxn66 18.06.2019 11:30

Первый прибор для записи и воспроизведения звука...

kvasik032 18.06.2019 11:30