ПОЛЬЗОВАТЕЛЬ ВВОДИТ ЛЮБУЮ СТРОКУ С ЛЮБЫМ КОЛИЧЕСТВОМ символов и любыми знаками найти сколько согласных букв в строке и вывести их на экран

1
Комментарий удален
нужно очень срочно

Ответы и объяснения

  • Участник Знаний
2014-03-22T12:47:50+04:00
Const g=['ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б'];
var s: string;i,ks: byte;
begin
readln(s);
s:=lowercase(s);
for i:=1 to length(s) do
if s[i] in g then inc(ks);
writeln(ks);
end.