Giper
5 год назад
вводится последовательность чисел, ноль - конец последовательности. Определить Как узнать сколько чётных чисел было введено? написать while, подробно
ОТВЕТЫ
Dobrinka
Oct 24, 2020
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
39
Смежные вопросы:
