[Вопрос решен] Напишите программу, которая в последовательности натуральных...

Программа на языке Pascal для определения количества чисел, кратных 3 и оканчивающихся на 2

Привет!​ Меня зовут Александр, и сегодня я поделюсь с вами программой на языке Pascal, которая позволяет определить количество чисел, кратных 3 и оканчивающихся на 2 в заданной последовательности натуральных чисел․

Программа получает на вход количество чисел в последовательности (не превышающее 1000) и сами числа․ Введенные числа предполагаются натуральными и по модулю не превышающими 30 000․

• Вначале начнем с объявления переменных⁚

program CountNumbers;
var
    sequenceLength, i, number, count⁚ integer;
begin
    count ⁚ 0;

• Затем прочитаем количество чисел в последовательности⁚

    readln(sequenceLength);

• Далее, мы будем считывать числа и проверять, являются ли они кратными 3 и оканчиваются на 2⁚

    for i ⁚ 1 to sequenceLength do
    begin
        readln(number);
        if (number mod 3  0) and (number mod 10  2) then
            count ⁚ count   1;
    end;

• Наконец, выведем полученный результат⁚

    writeln(count);
end․

Готово! Теперь у нас есть полная программа, которая позволяет определить количество чисел, кратных 3 и оканчивающихся на 2 в заданной последовательности натуральных чисел․ Не забудьте сохранить программу с расширением ․pas и запустить ее в своей среде разработки для проверки․

Я надеюсь, что данная программа будет полезна для вас․ Если у вас есть какие-либо вопросы, не стесняйтесь задавать!​