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

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 месте справа

Comments

Немного подправил код, теперь еще показывает на каком месте находится искомая цифра.

---

Ну а задачку можно посмотреть

---

И эту задачку разобрал

---

Загружайте, у меня сейчас перерыв. Кто-нибудь обязательно поможет, задачи хоть и интересные но действительно не сильно сложные. Если не будет решений то позже подключусь. Успехов!