Написать программу (полностью) для нахождения произведение суммы нечетных цифр и их минимума в четырехзначном числе. Программа должна начинаться следующим образом и не содержать иных переменных кроме данных. var min, digit, s, n, res :integer; begin readln(n); Входные данные: Четырехзначное число. Выходные данные: Результат
Ответы
Ответ дал:
0
... - уже данный код в условии
s := 0;
min := 10;
for res := 1 to 4 do
begin
digit := n mod 10;
if (digit mod 2 = 1) then
begin
s += digit;
if (digit < min) then
min := digit;
end;
n := n div 10;
end;
writeln(s * min);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад