Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.
Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.
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
вывод "сумма чисел кратных шести и оканчивающихся на шесть: ", с
кон
