Вычислить какая цифра правее через подпрограмму

[Guagpro]

Дано натуральное число. Если в нем есть цифра a и b, то определить, какая из них расположена в числе правее. Если одна или обе эти цифры встречаются в числе несколько раз, то должны быть рассмотрны самые правые из одинаковых цифр.

Помогите плиз чет сижу пробую ни фига не получается

[Stilet]

Как пробуешь?

[Guagpro]

Сообщение от Stilet

Как пробуешь?

function prav(n,a,b:integer):integer;
begin
if (n div 10)=a then
writeln('a pravee')
else
writeln('b pravee');
end;
var
l,a,b,n:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('n=');
readln(n);
l:=prav(n,a,b);
end.

[Guagpro]

блин мод не див

function prav(n,a,b:integer):integer;
begin
if (n mod 10)=a then
writeln('a pravee')
else
writeln('b pravee');
end;
var
l,a,b,n:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('n=');
readln(n);
l:=prav(n,a,b);
end.

Как теперь тогда если допустим у меня число 12345 а=4 в=1 будет выводить в правее

[DiemonStar]

есть два варианта:
1) преобразовать число в строку и сравнивать позиции цифр в данной строке
2) делать то, что вы делали в примере (именно с div), пока исходное число не сравняется с нулем примерно так:

I := 0; Ia :=0; Ib := 0;
repeat
  if (N div 10 = a) and (Ia = 0) then Ia := I;
  if (N div 10 = b) and (Ib = 0) then Ib := I;
  I := I + 1;
  N := N mod 10;  
until N <> 0;

[BDA]

DiemonStar, Вы mod и div перепутали местами.
Кстати, если встречена а или б, то идти далее по числу не имеет смысла, т.к. уже понятно, какая из цифр правее.

[Guagpro]

Сообщение от DiemonStar

[/CODE]

function prav(n,a,b:integer):integer;
var
L:byte;
begin
L:=0;
while L=0 do
if (n mod 10)=a then
begin
L:=1;
writeln('a pravee');
end
else
if (n mod 10)=b then
begin
L:=1;
writeln('b pravee');
end;
end;
var
l,a,b,n:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('n=');
readln(n);
L:=prav(n,a,b);
end.

Пытался сделать так но что то не получается все равно

Сейчас попробую как вы сказали

[BDA]

procedure prav(n, a, b: integer);
begin
  while n <> 0 do
  begin
    if n mod 10 = a then
    begin
      writeln('a pravee');
      exit;
    end
    else if n mod 10 = b then
    begin
      writeln('b pravee');
      exit;
    end;
    n := n div 10;//забыли делить
  end;
  writeln('nikto :)');
end;

var
  a, b, n: integer;

begin
  writeln('a=');
  readln(a);
  writeln('b=');
  readln(b);
  writeln('n=');
  readln(n);
  prav(n, a, b);
  readln;
end.

[Guagpro]

Сообщение от BDA

procedure prav(n, a, b: integer);
begin
  while n <> 0 do
  begin
    if n mod 10 = a then
    begin
      writeln('a pravee');
      exit;
    end
    else if n mod 10 = b then
    begin
      writeln('b pravee');
      exit;
    end;
    n := n div 10;//забыли делить
  end;
  writeln('nikto :)');
end;

var
  a, b, n: integer;

begin
  writeln('a=');
  readln(a);
  writeln('b=');
  readln(b);
  writeln('n=');
  readln(n);
  prav(n, a, b);
  readln;
end.

Да да спасибо) Щас сам уже заметил деление)

[DiemonStar]

DiemonStar, Вы mod и div перепутали местами.

Спасибо. Косякнул.