Задачка на вывод порядкового номера самой большой цифры в записи числа!

26.02.2014, 20:14. **Показов** 3550. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Чет не могу понять! Задача состоит в том, что сначала комп получает на вход натур. число, находит самую большую цифру в записи этого числа, и выводит порядковый номер этой цифры, начиная с права.
Вот на что самого хватило:

Pascal

var a,q,c,b:integer;
Begin 
readln(a);
c:=0;
q:=0;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then
begin
c:=b;
q:=q+1;
end
end;
writeln(q); 
end.

Но! При вводе например числа : 9123, он отвечает 2, как сделать правильный счетчик???

@L_e_g_i_o_n · 26.02.2014, 21:23

Pascal

var
   a,k,max,n,pos:integer;
Begin
     readln(a);
     max:=0;
     k:=0;
     pos:=0;
while a > 0 do
begin
     n:= a mod 10;
     k:= k+1;
     a:= a div 10;
     if n > max then begin
                         max:=n;
                         pos:=k;
                     end;
end;
    writeln(k-pos+1);  //порядковый номер максимального числа, начиная слева
    writeln(pos);      //порядковый номер максимального числа, начиная справа
end.

	26.02.2014, 21:23