Поделитесь своими знаниями, ответьте на вопрос:
Нужна. дано натуральное число n. 1.вывести на экран минимальную цифру числа и разряд, в котором она находится; 2.вывести на экран максимальную цифру числа и разряд, в котором она находится; 3.вывести на экран сумму максимальной и минимальной цифры. 4.выяснить, сколько раз в натуральном числе встречается его максимальная цифра. 5.проверить на четность минимальную цифру числа n. пример введите натуральное число n: 388456 минимальная цифра - 3, находится в разряде 5; максимальная цифра - 8, находится в разряде 4; сумма максимальной и минимальной цифры - 11; максимальная цифра встречается 2 раза; минимальная цифра - нечетная.
uses crt;
var n,k,min,max,x,i,s: integer;
begin
clrscr;
write('Введите натуральное число N: ');
readln(n);
x:=n;
s:=1;
writeln;
min:=9;
while x>0 do
begin
if x mod 10 > max then
begin
max:=x mod 10; k:=s;
end;
if x mod 10 < min then
begin
min:=x mod 10; i:=s;
end;
x:= x div 10;
s:=s+1
end;
writeln('Минимальная цифра - ',min,', находится в разряде ',i,';');
writeln('Максимальная цифра - ',max,', находится в разряде ',k,';');
k:=0;
writeln('Сумма максимальной и минимальной цифры - ',min+max,';');
while n>0 do
begin
if n mod 10 = max then
k:=k+1;
n:=n div 10;
end;
writeln('Максимальная цифра встречается ',k,' раз;');
if min mod 2 = 0 then writeln('Минимальная цифра - четная.')
else writeln('Минимальная цифра - нечетная.');
end.