Напишите программу, которая в последовательности натуральных трехзначных чисел определяет произведение цифр максимального числа, кратного 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. Во входных данных всегда есть число кратное 3. (паскаль, цикл с заданным числом повторений)
Напишите программу, которая в последовательности натуральных трехзначных чисел определяет произведение цифр максимального числа, кратного 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. Во входных данных всегда есть число кратное 3. (паскаль, цикл с заданным числом повторений)
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program MaxMultiple;
var
n, i, maxNum, maxProd, num, digit, prod: integer;
begin
maxNum := 0;
maxProd := 0;
readln(n);
for i := 1 to n do
if (num mod 3 = 0) and (num > maxNum) thenbegin
readln(num);
begin
maxNum := num;
prod := 1;
while num > 0 do
begin
digit := num mod 10;
prod := prod * digit;
num := num div 10;
end;
if prod > maxProd then
maxProd := prod;
end;
end;
writeln('Произведение цифр максимального числа, кратного 3: ', maxProd);
end.