Написать программу (полностью) для нахождения произведение суммы нечетных цифр и их...

0 голосов
24 просмотров

Написать программу (полностью) для нахождения произведение суммы нечетных цифр и их минимума в четырехзначном числе. Программа должна начинаться следующим образом и не содержать иных переменных кроме данных. var min, digit, s, n, res :integer; begin readln(n); Входные данные: Четырехзначное число. Выходные данные: Результат


Информатика (12 баллов) | 24 просмотров
Дан 1 ответ
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.

(1.8k баллов)