Question

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

Answer 1

Var
   a,b,n:string;
   i:integer;
begin
write('Введите n: ');
readln(n);
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
for i:=length(n) downto 1 do
  if (n[i]=a) or (n[i]=b) then
     begin
    writeln('Правее ',n[i]);
    halt;
    end;
end.