НАПИШИТЕ ПРОГРАММУ КОТОРАЯ ВЫПОЛНЯЕТ Подсчет СОГЛАСНЫХ букв в слове

Вопрос школьника по предмету Информатика

НАПИШИТЕ ПРОГРАММУ КОТОРАЯ ВЫПОЛНЯЕТ Подсчет СОГЛАСНЫХ букв в слове

Ответ учителя по предмету Информатика

const sogl=[‘w’,’r’,’t’,’p’,’s’,’d’,’f’,’g’,’h’,’j’,’k’,’l’,’z’,’x’,’c’,’v’,’b’,’n’,’m’];

var i,count: integer;

   s: string;

begin

 ReadLn(s);

 count:=0;

 for i:=1 to length(S) do

   if s[i] in sogl then inc(count);

 writeLn(count);

 ReadLn;

end.