Решить . дана последовательность от 1 до 30 слов. напечатать: все слова в алфавитном порядке.

275

324

Посмотреть ответы 3

Ответы на вопрос:

mehimehi225

Информатика

4,8(82 оценок)

//pascal abc.net v3.0 сборка 1111 const n=30; type tys=array[1..n] of string; var ars: tys; i,j: integer; s: string; procedure sorts(var ars: tys; n1: integer); var i,j: integer; c: string; begin for i: =1 to n1-1 do for j: =i to n1 do if ars[i]> ars[j] then begin c: =ars[i]; ars[i]: =ars[j]; ars[j]: =c; end; end; begin readln(s); j: =1; while pos(' ',s)< > 0 do begin for i: =1 to pos(' ',s) do ars[j]: =ars[j]+s[i]; delete(s,1,pos(' ',s)); inc(j); end; ars[j]: =s; sorts(ars,j+1); writeln('result='); for i: =1 to n do writeln(ars[i]); end. пример ввода: панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум пример вывода: панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм разумтетрадь явный

lisa20060701

Информатика

4,5(70 оценок)

Аеще эту можно решить вот так, но почему-то в школе обычно так не учат: // pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin readlnstring('-> ').towords.sorted.println end. тестовое решение: (данные взяты у предыдущего автора): -> панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм разум тетрадь явный