Вычеркивание цифрыДано натуральное число, содержащее не более N (0<N£9) цифр. Вычеркнув в...

Question

Вычеркивание цифры

Дано натуральное число,
содержащее не более N (0 цифру, получить наибольшее число. При этом порядок цифр в числе менять нельзя.

Пример




Input.txt


Output.txt




8263015


863015

Answer 1

Var
  s, si, sm: string;
  i, n: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, s);
  Close(f);
  Assign(f, 'output.txt');
  Rewrite(f);
  n := Length(s);
  sm := Copy(s, 2, n - 1);
  for i := 2 to n do
  begin
    si := s;
    Delete(si, i, 1);
    if sm < si then sm := si
  end;
  Writeln(f, sm);
  Close(f)
end.

---

Скачать вложение Текст (TXT)

---

Скачать вложение Текст (TXT)