Даю 15 баллов за решение.Вам дается строка, содержащая целое положительное число

Даю 15 баллов за решение.
Для вас дается строчка, содержащая целое положительное число (вероятно очень великое) без водящих нулей. Для вас разрешается поменять любые 2 знака строчки (2 цифры числа), либо вы сможете бросить начальное число. Обмен разрешается только в том случае, если в итоге в строке не вышло ведущих нулей.
Посреди всех вероятных строк, приобретенных обозначенным выше методом найдите ту строчку, которая задает меньшее число из всех возможных.
Обратите внимание, что в итоге не обязано быть ведущих нулей, а также на то, что ответом может быть и сама начальная строка.
Входные данные:
Во входном файле input.txt в первой строке записана строчка S, задающая целое положительное число без водящих нулей.
Выходные данные:
В выходной файл output.txt ваша программка обязана вывести строку, содержащую минимальное число, которое можно получить из исходной строчки.

Задать свой вопрос
1 ответ
Вот , правда с выводом задачи , т.к. в текстовом документе заключительная строка порожняя т.е. = 0 и самое махонькое значение одинаково всегда 0. Вот код размышляю допилишь сам

program z;  var imin,i:integer;inf,outf:text;beginimin:=0;assign(inf,'in.txt');reset(inf);  while not EOF(inf) do     begin      readln(inf,i);        if ilt;imin then imin:=i;    end;close(inf);assign(outf,'out.txt');rewrite(outf);writeln(outf,imin);close(outf);end.
Шитинина Виктория
pastebin.com/u5mTSRbc
Коля Симоруков
извините за мою невнимательность, код рабочий - поставьте значение imin:=99999999999 и все заработает
Лариса Переяславцева
а лучше imin:=maxint;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт