Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество трёхзначных чисел, кратных 4.
Ники67
2
26.07.2019 12:00
26
Другие вопросы по теме Информатика
TheSniper
16.03.2020 22:20
Kotic777
16.03.2020 22:20
ChristenChy
16.03.2020 22:21
dianasobol
20.08.2019 16:10
vannik78
20.08.2019 16:20
anastasiaruabenko
28.04.2021 14:01
яглупенькая
06.07.2019 16:00
Remka228
06.07.2019 16:00
Популярные вопросы
- Вибери до слова зимові слова перевірені: зима,зимувати,зимонька...
3 - Лазание или лазанье? как правильно? если что, слово взято из словосочетания лазание/лазанье...
1 - ;представь в виде смешанного числа неправильную дробь. дроби три вторых,тринадцать...
3 - Реши к празднику испекли пряники, печенье и пирог и истратили 1 кг 400 г муки....
1 - Борьба народов в колониальных странах носила: а)буржуазно революционный характер...
2 - Составь вырожение и найди их значение. к числу 50прибавь сумму чисель 6и 7к числу...
2 - Ссторона треугольника равна 5 см а высота проведенная к ней в 2 раза больше стороны...
2 - Это снова вообщем мой мл. брат решил самостоятельную работу и просит а я как глупый...
3 - Как решить номер 2- выражение: (х-4)*(х-5)-2х(х вас умоляю мне нужно сдать через...
2 - На одной клумбе было втрое больше роз, чем на другой. когда к ним подсадили еще...
1
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Where(x -> length(inttostr(x))=3).where(x -> x mod 4=0).Count);
end.
Пример ввода:
444
4444
22
123
888
0
Пример вывода:
2