Меню сайта

Задача №10

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных.


program mn_10-

const

glasn=[‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’]-

soglas=[‘б’,’в’,’г’,’д’,’ж’,’з’,’й’,’л’,’м’,

‘н’,’р’,’к’,’п’,’с’,’т’,’ф’,’х’,’ц’,’ч’,’ш’,’щ’]-

var

st: string-

g,s,i:integer-

begin

write(‘Введите строку ‘)-

readln(st)-

g:=0- s:=0-

for i:= 1 to length(st) do

if st[i] in glasn then

inc(g)

else if st[i] in soglas then

inc(s)-

if g&gt- s then writeln(‘Гласных больше’)

else if g&lt- s then

writeln(‘Согласных больше’)

else writeln(‘Согласных и гласных букв поровну’)-

readln-

end.

Категория: Множества | Дата: 26.12.12

Меню раздела
Блок