Подсчитать количество слов в предложении, которые заканчиваются согласными буквами
Категория: Delphi/Pascal
2011-08-20 13:39:18
Ввести предложение длиной не более 70 символов, Подсчитать количество слов, заканчивающихся согласными буквами. Вывести на экран эти слова и их количество. Количество пробелов между словами произвольно.
code: #pascal
- program PascalGuru;
- var s,slovo:string;
- sogl:set of char;
- i,p,kol:integer;
- begin
- sogl:=['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Z'];
- write('Predlojenie: '); readln (s);
- i:=1;
- repeat
- if copy(s,i,2)=' ' then delete(s,i,1) else inc(i);
- until i>length(s);
- kol:=0;
- p:=pos(' ',s);
- repeat
- slovo:=copy(s,1,p-1);
- delete(s,1,p);
- p:=pos(' ',s);
- if upcase(slovo[length(slovo)]) in sogl then inc(kol);
- until p=0;
- if upcase(s[length(s)]) in sogl then inc(kol);
- writeln('Kol-vo: ',kol);
- readln;
- end.
Поделиться: