Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на
Var
i,k,m:integer;
n:longint;
begin
Write(‘Введите количество чисел: ‘); Read(k);
m:=0;
Writeln(‘Вводите числа’);
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln(‘Количество чисел, кратных 6, равно ‘,m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
Напишите программу которая в последовательности натуральных чисел определяет количество чисел 6
Задание 15 № 4967 
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число − количество чисел, кратных 6.
Пример работы программы:
Это задание ещё не решено, приводим решение прототипа.
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающееся на 8. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести одно число: сумму чисел, кратных 3 и оканчивающихся на 8.
Пример работы программы:
20.2 Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:
ОГЭ по информатике. Вторая часть. Задачи на паскале — другое окончание ввода последовательности
Сегодня разберём нестандартные задачи из задания из второй часть ОГЭ по информатике.
Определение КОЛИЧЕСТВО элементов, КРАТНЫХ 6 и ОКАНЧИВАЮЩИХСЯ на 2.
Задача 1
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО всех чисел, КРАТНЫХ 6 и ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 2. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — КОЛИЧЕСТВО всех чисел, КРАТНЫХ 6 и ОКАНЧИВАЮЩИХСЯ на 2.
Заводим две переменные: а – переменная для чисел, quantity – переменная для результата. Вначале Количество равно нулю, а само число -1 (главное, чтобы не (кратное 6 и оканчивающие на 2)) Далее, используем ЦИКЛ с предусловием (WHILE). Запрашиваем число, если оно кратно 6 (остаток от деления на 6 равен 0) И это число оканчивается на 2 (остаток от деления на 10 равно 2), то плюсуем 1 к тому, что было в переменной Количество. Как только, мы получили в последовательности 0 – программа выходит из ЦИКЛА (WHILE), и распечатывает ответ.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ всех чисел, КРАТНЫХ 10 и БОЛЬШИХ 100. В последовательности всегда имеется число, кратное 10 и большее 100. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — СУММУ всех чисел, кратных 10 и БОЛЬШИХ 100.
Заводим две переменные: а – переменная для чисел, sum – переменная для суммы. Вначале сумма равна нулю, а само число -1 (главное, чтобы не (КРАТНОЕ 10 и БОЛЬШЕЕ 100)). Далее, используем ЦИКЛ с предусловием (WHILE). Запрашиваем число, если оно кратно 10 (остаток от деления на 10 равен 0) И это число БОЛЬШЕ 100 (>100), то СУММИРУЕМ: к тому, что было, в переменной суммы, плюсуем наш элемент. Как только мы получили в последовательности 0 – программа выходит из ЦИКЛА (WHILE) и распечатывает ответ.
Напишите программу, которая в последовательности натуральных чисел определяет МИНИМАЛЬНОЕ нечётное число БОЛЬШЕЕ 50. В последовательности всегда имеется нечётное число большее 50. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — МИНИМАЛЬНОЕ нечётное число БОЛЬШЕЕ 50.
Заводим две переменные: а – переменная для чисел, min – переменная для результата. Вначале минимальное число равно самому большому значению из всех возможных: 30000, а само число -1 (главное, чтобы не (нечётное число БОЛЬШЕЕ 50)). Далее, используем ЦИКЛ с предусловием (WHILE). Запрашиваем число, если оно нечётное (остаток от деления на 2 равен 1) И число больше 50 (>50), И это число меньше, чем переменная min (минимальное число, считающееся в данный момент), то это число заносится в переменную min (Т.е. «получаем нового победителя – обновляем минимальное число»).Как только мы получили в последовательности 0 – программа выходит из ЦИКЛА (WHILE), и распечатывает ответ.