Меню сайта

Задача №6

Дан текст на русском языке. Найти количество гласных букв


Program mn_6-

uses crt-

type — mn= set of char-

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

var a:string-

k,i,s:integer-

begin

clrscr-

writeln(‘введите текст’)-

readln(a)-

s:=length(a)-

i:=0-

if a[s]&lt-&gt-‘.’ then a:=a+’.’-

repeat

begin

inc(i)-

if a[i] in glas then

k:=k+1-

end-

until a[i]=’.’-

writeln (k)-

readln-

end.

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

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