Составить программу, определяющую сколько в слове согласных букв

1

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

2012-09-24T19:17:03+04:00

uses crt;
var s: string;
i,k: byte;
begin
write('s='); readln(s);
for i:=1 to length(s) do
if ((s[i]='клмнпрстжхбцшщз') or (s[i]='клмнпрстжхбцшщз')) and (i mod 2=0) then inc(k);
writeln(k);
readln;
end.

 

Может быть так? Не уверен