Предмет: Информатика,
автор: sdr17620
Вычеркивание цифры
Дано натуральное число,
содержащее не более N (0<N£9) цифр. Вычеркнув в нем одну
цифру, получить наибольшее число. При этом порядок цифр в числе менять нельзя.
Пример
Input.txt
Output.txt
8263015
863015
Ответы
Автор ответа:
0
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.
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.
Приложения:
Похожие вопросы
Предмет: Кыргыз тили,
автор: Аноним
Предмет: Геометрия,
автор: tamb
Предмет: Русский язык,
автор: rinathathe69
Предмет: История,
автор: Anya202
Предмет: Биология,
автор: katyavasileva2