Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
begin
var count := 0;
var num := ReadInteger;
if num > 1000 then
Println('Чисел больше 1000')
else
for var i := 1 to num do
begin
var chisla := ReadInteger;
if chisla > 30000 then
Println('Превышенно значение числа')
else
if (chisla mod 10 = 4) and (chisla mod 6 = 0) then
Inc(count);
end;
Print('Колличество чисел удовлетворяющих условие: ', count);
end.
n = int(input())
for i in range(n + 1):
if i % 6 == 0 and str(i)[0] == 4:
print(i)
Объяснение: