var i:integer; s:string; const glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю']; beginwrite ('Vvedite predlohenie: '); readln (s); i:=1; while i<=length (s) do begin if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then begin while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do begin write (s[i]); i:=i+1; end; writeln; end; i:=i+1; end; readln; end.
uses crt; var s,s1:string; a:array[1..100] of string; n,i,j,k:byte; begin clrscr; writeln('Введите текст из слов, разделенных пробелами'); readln(s); s:=' '+s+' ';{добавим пробел в начало и в конец} n:=length(s); i:=2; k:=0;{всего слов} while i<=n do if (s[i]<>' ')and (s[i-1]=' ') then{если не пробел а перед ним пробел} begin k:=k+1;{+ слово} j:=i; s1:=''; while (j<=n) and (s[j]<>' ') do {пока не пробел и не конец строки} begin s1:=s1+s[j]; j:=j+1; end; a[k]:=s1;{пишем его в массив} i:=i+length(s1);{перешагиваем через слово} end else i:=i+1;{пропускаем пробелы} for i:=1 to k-1 do {сортируем массив по возрастанию=по алфавиту} for j:=i+1 to k do if a[i]>a[j] then begin s1:=a[i]; a[i]:=a[j]; a[j]:=s1 end; writeln('Слова текста в алфавитном порядке:'); for i:=1 to k do writeln(a[i]); readln end.
купи новую клаву и не парься