Agamadred
4 год назад
Пожалуйста посчитайте!!!!Напишите программу,которая в последовательности натуральных чисел определяет количество трехзначных чисел,кратных 4.Программа получает на вход натуральные числа,количество введенных чисел,неизвестно,последовательность чисел заканчивается числом 0 (0-признак окончания ввода,не входит в последовательность).Количество чисел не превышает 1000.Введенные числа не превышают 30000.Программа должна вывести одно число:количество трехзначных чисел,кратных 4.(Паскаль)
ОТВЕТЫ
Бойчо
Oct 24, 2020
begin
Write(ReadSeqIntegerWhile(k->k<>0).
Where(k->(k>99) and (k<1000) and (k mod 4=0)).Count)
end.
45 244 1043 463 500 241 18 44 0
2
75
