Пользователь вводит любую строку с любым количеством символов и любыми знаками. Найти сколько согласных букв в строке и вывести их на экран

1

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

  • Участник Знаний
2014-03-19T15:56:36+04:00
Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','Й','Ц','К','Н','Ш','Щ','З','Х','Ф','В','П','Р','Л','Д','Ж','Ч','С','М','Т','Б'];
var str: string;i: byte;
begin
readln(str);
for i:=1 to length(str) do
begin
if str[i] in g then writeln (str[i]);
end;
end.
*length
щас где g он пишет не известный индефикатор
все большое спасибо все прекрасно работае
Это на PascalABC, если что
а как он работает