Найти произведение всех элементов введенной последовательности, кратных 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.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
