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

Question

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

Comments

Какой язык программирования, и на каком языке вводятсчя слова?

---

вводятся*

---

Паскаль, английский

Answer 1

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.

---