Составьте программу, выясняющую, есть ли в слове Х глухие согласные. Помогите,...

Question

Составьте программу, выясняющую, есть ли в слове Х глухие согласные.
Помогите, пожалуйста.Язык программирования - паскаль.

Comments

А какие согласные глухими считаются?=))

---

Глухие согласные согласные, произносимые без участия голоса, т. е. при раздвинутых и ненапряжённых голосовых связках, например русские «п», «т», «к», «ф», «с».

---

п, ф, т, с, ш, к + эти же,только мягкие и + ч, щ, ц, х

Answer 1

Var
S:string;
A,i:integer;
Begin
A:=0;
WriteLn('Введи слово');
ReadLn(S);
For i:= 1 to Length(S) do
 if UpperCase(S[i])in['П','Т','К','Т','Ш','С','Х','Ц','Ч','Щ'] then A:=1;

if A=1 then WriteLn('Есть глухие согласные')
else Write('Глухих согласных нет')
End.