Question

Напишите программы на языке паскаль:
1. напишите программу, которая в последовательности натуральных чисел
определяет сумму трёхзначных чисел, кратных 4. программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму трёхзначных чисел, кратных 4.
2. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 6 и оканчивающихся на 4. программа
получает на вход количество чисел в последовательности, а затем сами числа.
количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
3. напишите программу, которая в последовательности целых чисел
определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9.
4. напишите эффективную программу, которая по двум данным натуральным
числам a и b, не превосходящим 3, подсчитывает количество нечетных
натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 3. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
5. напишите программу, которая в последовательности натуральных чисел
находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых.
6. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в
последовательности всегда имеется число, кратное 4 и не кратное 7. количество
чисел не превышает 1000. введённые числа не превышают 30 000. программа
должна вывести одно число: количество чисел, кратных 4, но не кратных 7.