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

Question

44

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

qqlalki · Accepted Answer

34

qqlalki

13 сентября 2022

uses crt; var s: string; i,k: byte; beginwrite ('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. Может быть так? Не уверен

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: