Question

Специальное задание)

Answer 1

Ну, если правильно понял условие то может получиться так:


var a:integer;
i,max,p:integer;

begin
  max:=0; //заведомо наименьшее значение
  writeln('введите число ');
  readln(a);
  while a<>0 do begin
    if (a mod 10)>max then begin
      max:= a mod 10;
      p:=p+1;
    end;
    a:=a div 10;
  end;
  writeln('max = ',max, ' находится на ', p,' месте справа');
end.

Тестовое решение:
введите число
54674
max = 7 находится на 2 месте справа