Максимальная цифра м.б. 9, значит сумма цифр не может быть больше 18
1) Сначала уберем из списка все возрастающие - 1619 316 916
останется 1616 169 163 1916 116
2) Из этого списка удалим также 1916, т.к 19 не может быть (сумма цифр макс 18)
Останется 1616 169 163 116
3) Рассмотрим, все ли числа могли получится, как результат сложения
1616 могло получится, если число, например, 888. Значит его оставляем
169 - например, 972 или 881. Значит, тоже подходит
163 - 16 может получиться как сумма 8+8 7+9, но тогда мы не получим 3. Т.е. это число не подходит - удаляем
116 - это, например, 560, 651, т.е подходит
Значит осталось 1616, 169, 116
ответ: 3
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение: