Найти количество гласных и согласных букв в строке, а также символов (, . : ? !

Santi111

Задана строка S, содержащая русскоязычный текст, записанный малыми буквами. Найти количество гласных и согласных букв в S, а также символов (, . : ? ! - ).
2 ответа

Santi111

uses crt;
const g=['ё','у','е','ы','а','о','э','я','и','ю'];
      a=['а'..'я'];
      p=[',','.',':','?','!','-','(',')'];
var str: string;
    s: set of char;
    i,kg,ks,kp: byte;
begin
s:=a-g;
write('str='); readln(str);
for i:=1 to length(str) do
    if str[i] in g then inc(kg) else
       if str[i] in s then inc(ks) else
          if str[i] in p then inc(kp);
writeln('Количество гласных ',kg);
writeln('Количество согласных ',ks);
writeln('Количество символов (, . : ? ! - ) ',kp);
readln;
end.