Question

(я не хочу умирац) Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 5.

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

Answer 1

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

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

вывод "сумма чисел кратных шести и оканчивающихся на шесть: ", с

кон