Ответы на вопрос:
"типовой школьный" паскаль: // pascalabc.net 3.0, сборка 1064 const k = 100; var s, wd: string; i, j, m, n, pt, step: integer; words, wordssort: array[1..k] of string; inorder: boolean; begin write('введите строку: '); readln(s); n : = length(s); pt : = 1; m : = 0; repeat // пропускаем все символы до первого непробельного while pt < = n do if ord(s[pt]) < = 32 then inc(pt) else break; if pt < = n then begin // выделяем очередное слово wd : = ''; while pt < = n do if ord(s[pt]) > 32 then begin wd : = wd + s[pt]; inc(pt) end else break; if wd < > '' then begin inc(m); words[m] : = wd end end until pt > n; // теперь words содержит все m слов. // отсортируем их в массиве wordssort методом шелла for i : = 1 to m do wordssort[i] : = words[i]; step : = m div 2; while step > 0 do begin for j : = m - step downto 1 do begin i : = j; while i < = m - step do begin if wordssort[i] > wordssort[i + step] then begin wd : = wordssort[i]; wordssort[i] : = wordssort[i + 1]; wordssort[i + 1] : = wd end; i : = i + step end end; step : = step div 2 end; // осталось поэлементно сравнить оба массива inorder : = true; i : = 1; while inorder and (i < = m) do begin inorder : = (words[i] = wordssort[i]); inc(i) end; if m = 0 then writeln('строка не содержит слов') else if inorder then writeln('cлова ') else writeln('cлова не ') end. тестовое решение: введите строку: слово1 слово2 слово3 слово4 слово5 cлова введите строку: слово1 слово2 слово4 слово3 слово5 cлова не "современный" вариант решения на паскале: // pascalabc.net 3.0, сборка 1064 var s: string; begin write('введите строку: '); readln(s); var delim: =range(0,32).select(x-> chr(; var words: =s.split(delim).where(x-> x< > ''); var wordssort: =words.sorted; if words.sequenceequal(wordssort) then writeln('cлова ') else writeln('cлова не ') end. тестовое решение совпадает с .
Популярно: Информатика
-
СашаСтоляров109.05.2020 09:06
-
dvofgisf10.01.2023 14:27
-
kadri130.10.2021 09:59
-
Topxic05.03.2023 18:44
-
Lexakek11128.12.2022 23:57
-
кот91222.10.2022 07:53
-
hjdbrvjt02.09.2021 20:03
-
alisakiseleva227.02.2020 18:14
-
potato199909.04.2022 01:27
-
Человек202910.05.2022 04:05