Ввести с клавиатуры предложение. Подсчитать количество согласных букв в каждом втором слове предложения — Pascal(Паскаль)

program example1;
uses wincrt;
const 
  glasn=['а','е','и','о','у','ы','э','ю','я']; 
   soglas=['б','в','г','д','ж','з','й','л','м',
         'н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
 var
   st: string;
     g,s,i:integer; 
begin 
  write('Введите строку> '); readln(st);
    g:=0; s:=0; 
      for i:= 1 to length(st) do 
        if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s);
  writeln('Гласных букв= ',g);
  writeln('Согласных= ',s);
 readln; 
end.

Leave a Comment

+ 80 = 87