ответ: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.
Объяснение:
var
a,b,c:integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
if (a>b)and(a>c) then writeln('Первое число наибольшее')
else if (a<b)and(a<c) then writeln('Первое число наименьшее')
else writeln('Первое число со средним значением');
if (b>a)and(b>c) then writeln('Второе число наибольшее')
else if (b<a)and(b<c) then writeln('Второе число наименьшее')
else writeln('Второе число со средним значением');
if (c>a)and(c>b) then writeln('Третье число наибольшее')
else if (c<a)and(c<b) then writeln('Третье число наименьшее')
else writeln('Третье число со средним значением');
end.
Проверил на Паскале