Найти произведение всех элементов введенной последовательности, кратных 3 - Pascal ABC
Формулировка задачи:
ввести с клавиатуры n любых чисел.Найти произведение тех что кратные 3
Решение задачи: «Найти произведение всех элементов введенной последовательности, кратных 3»
textual
Листинг программы
program pr;
var
n, m, p, i: integer;
begin
p := 1;
writeln('Введите количество чисел для ввода');
readln(n);
for i := 1 to n do
begin
read(m);
if m mod 3=0 then
p := p * m;
end;
writeln('Произведение чисел, кратных 3: ', p);
end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных n, m, p и i типа integer.
- Переменная p инициализируется значением 1.
- Выводится сообщение
Введите количество чисел для ввода. - Считывается значение переменной n.
- Запускается цикл for, который выполняется n раз.
- На каждой итерации цикла считывается значение переменной m.
- Проверяется, делится ли число m на 3 без остатка. Если да, то a) умножается на текущее значение переменной p. b) значение переменной p сбрасывается на 1.
- После завершения цикла выводится сообщение с произведением всех чисел, кратных 3.
- Программа завершается.