Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Срочно помощь нужна.
Дано натуральное число N.
1.Вывести на экран минимальную цифру числа и разряд, в котором она находится;
2.Вывести на экран максимальную цифру числа и разряд, в котором она находится;
3.Вывести на экран сумму максимальной и минимальной цифры.
4.Выяснить, сколько раз в натуральном числе встречается его максимальная цифра.
5.Проверить на четность минимальную цифру числа N.
Пример
Введите натуральное число N: 388456
Минимальная цифра - 3, находится в разряде 5;
Максимальная цифра - 8, находится в разряде 4;
Сумма максимальной и минимальной цифры - 11;
Максимальная цифра встречается 2 раза;
Минимальная цифра - нечетная.

Ответ оставил Гость

Program prog;
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.