Вводится несколько строк (не более 20) в которых сначала записан порядковый номер строки с точкой, а затем - слово. Ввод заканчивается пустой строкой. Вывести введённые слова в алфавитном порядке.
Пример:
Введите слова:
1. Тепловоз
2. Арбуз
Список слов в алфавитном порядке:
Арбуз, тепловоз

var ran0: array[1..20] of string; {массив для ввода туда слов}

i,j:integer;

strk:string;

begin

for i:=1 to 20 do  

begin

readln(ran0[i]);                  {вбиваем туда слова}

ran0[i]:=ran0[i][2:];             {отбрасываем цифру с точкой с среза}

end;

for i:=1 to 19 do                  {выполняем обычную сортировку}

 for j:=1 to 20-i do

  if (ran0[j])>(ran0[j+1]) then  {каждый сивол кодируется числовым значением, поэтому чем меньше код символа, тем ближе символ к началу}

 begin

 strk:=ran0[j];                  {сортируем массив}

 ran0[j]:=ran0[j+1];

 ran0[j+1]:=strk;

 end;

 for i:=1 to 20 do                {выводим отсортированный массив}

   write(ran0[i][3:],', ');

   end.

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108