Ответы на вопрос:
Разъяснения разместил в код программы в виде комментариев //объявление переменных //n - количество чисел //p - произведение найденных чисел //i - переменная для организации цикла var n, p, i: integer; begin //переменная p = 1, //так как в процессе работы программы в ней //накапливается произведение найденных чисел p : = 1; write('введите количество чисел '); //в n - количество вводимых чисел readln(n); // цикл со счетчиком в котором вводим n чисел, for i : = 1 to n do // проверяем очередное значение i на кратность 3 // и выясняем, заканчивается ли это число на 1. // для этого используем целочисленное деление. // mod - остаток от деления // если i mod 3 = 0, значит i кратно 3 // если i mod 10 = 1, значит i оканчивается на 1 if (i mod 3 = 0) and (i mod 10 = 1) then p : = p * i; //умножим p на найденное число //вывод произведения найденных чисел writeln('искомое произведение ', p); end. тестовое решение: введите количество чисел 81 искомое произведение 86751
Популярно: Информатика
-
rinat050120.05.2023 08:12
-
SandruhA18.03.2023 11:04
-
поварешка126.01.2022 20:34
-
2810vika12.12.2021 05:05
-
sea13128107.01.2022 12:33
-
катяипапа00011101.08.2020 01:46
-
Evelina1789014.08.2021 04:16
-
asim200104.05.2021 01:13
-
Proжареный28.09.2020 15:30
-
Davidavid27.09.2021 06:49