Question

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

Answer 1

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.

Answer 2

*length

Answer 3

щас где g он пишет не известный индефикатор

Answer 4

все большое спасибо все прекрасно работае

Answer 5

Это на PascalABC, если что

Answer 6

а как он работает