Print('Элементов, кратных 5 и заканчивающихся нулем:',
a.ElementsByRow.Count(p -> p mod 10 = 0))
end.
Объяснение:
Если число заканчивается нулем, то оно кратно 10. Но 10 = 5·2, поэтому такое число также кратно 5 и 2. Вследствие этого, отдельная проверка на кратность 5 не нужна.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
===== PascalABC.NET =====
begin
var a := MatrRandom(3, 4, -99, 99);
a.Println(4);
Print('Элементов, кратных 5 и заканчивающихся нулем:',
a.ElementsByRow.Count(p -> p mod 10 = 0))
end.
Объяснение:
Если число заканчивается нулем, то оно кратно 10. Но 10 = 5·2, поэтому такое число также кратно 5 и 2. Вследствие этого, отдельная проверка на кратность 5 не нужна.