(я не хочу умирац) Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 5.
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.
Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.
Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.
1) кратные 4 и не кратные 5 (количество):
цел ч,п,н,к=0
алг
нач
вывод "количество чисел в последовательности= "
ввод п
вывод "ввод последовательности натуральных чисел:", нс
нц для н от 1 до п
вывод "число ", н, " из ", п, " = "
ввод ч
если mod (ч, 4) = 0 и mod (ч, 5) <> 0 то к := к+1 всё
кц
вывод "количество чисел кратных четырём, но не кратных пяти= ", к
кон
2) кратные 6 и оканчивающиеся на 6 (сумма):
цел ч,н=0,с=0
алг
нач
вывод "ввод последовательности натуральных чисел:", нс
нц
н := н+1
вывод "число №", н, " = "
ввод ч
если mod (ч, 6) = 0 и mod (ч, 10) = 6 то с := с+ч всё
кц при ч=0
вывод "сумма чисел кратных шести и оканчивающихся на шесть: ", с
кон