Предмет: Информатика,
автор: alexogan79
Напишите программы на PascalABC.Net
Задача №3:
Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, не кратных 3 и начинающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 300. Введённые числа из отрезка [10; 99]. Программа должна вывести одно число: количество всех чисел, не кратных 3 и начинающихся на 2.
Например: 23 48 22 28 24 0 ==> 3
Ответы
Автор ответа:
0
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Count(p -> (p div 10 = 2) and (p mod 3 <> 0))
.Println
end.
Похожие вопросы
Предмет: Химия,
автор: terrafnyf
Предмет: Английский язык,
автор: hsudhshas
Предмет: Математика,
автор: Matvii228
Предмет: Математика,
автор: рус178
Предмет: География,
автор: таня456717281012028