<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>
1 любви
2 температурах
3 выполнять
4 генераторов
5 работу
1) Петя и Вера учатся у П (победитель Программирования), а Игорь и Маша только заинтересовались языком Си++, значит П - Олег. 2) Петя, Маша и Вера не И (победитель Истории), т.к. или учатся с ним в одной школе или живут в одном доме. Значит И - Игорь. 3) победитель Литературы (Л) знаком с Петей и Машей, значит он не они, а Вера. 4) Петя не любит английский, значит он - Р (победитель по Русскому яз.). 5. И остаётся Маша - А ( победитель по Англ.яз.). Значит правильные ответы: 1) Игорь, 2) Олег, 3) Вера, 4) Петя, 5) Маша.
Ответ:
23 9 3 24
влбаовоаталчлвдаььслсьвлсьальа
На вкладке Вставка, в разделе Текст есть команды форматирования надписей и текста. Если вы вставите надпись из этого блока и выделите ее, то появляется вкладка Формат с соответствующими командами.