Вычеркивание цифрыДано натуральное число, содержащее не более N (0<N£9) цифр. Вычеркнув в нем одну цифру, получить наибольшее
Вычеркивание цифры
<span>Дано натуральное число, содержащее не более N (0<N£9) цифр. Вычеркнув в нем одну цифру, получить наибольшее число. При этом порядок цифр в числе менять нельзя.</span>
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.