Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
113
287
Ответы на вопрос:
n = int(input())
for i in range(n + 1):
if i % 6 == 0 and str(i)[0] == 4:
print(i)
Объяснение:
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.
Впринципе, можно перебором. так как слово состоит из 3 букв, то запишем все возможные слова. ooo,oo1,o11,111,1oo,11oответ: 6 слов.
Популярно: Информатика
-
ДанилЮсупов07.07.2021 08:10
-
botuchenyy05.02.2022 07:26
-
анаркааа5412.01.2022 02:05
-
Алисика1117.07.2020 20:33
-
Lerakadyrova12.04.2022 06:10
-
petrovakat200309.05.2022 12:44
-
karinohka200603.03.2020 09:06
-
qamqsmbfhfuc13.02.2021 23:38
-
marylps4517.10.2022 08:30
-
Abdul1815.12.2021 03:45