Здравствуйте!Срочно нужна помощь. Необходимо написать программу на Паскале: Подсчитайте количество гласных в строке.

1

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

2013-01-10T20:35:58+04:00
Const gl=['а','е','ё','и','о','у','ы','э','ю','я',          'А','Е','Ё','И','О','У','ы','Э','Ю','Я']; Var s:string[70]; Function Glas(s:string):byte; Var i,k:byte; Begin     k:=0;     For i:=1 to Length(s) do      if s[i] in gl then inc(k);     Glas:=k; End; Procedure Slovo(s:string[70]); Var s1:string; Begin     s:=s+' ';     While Pos(' ',s)<>0 do      Begin       s1:=Copy(s,1,Pos(' ',s)-1);       Delete(s,1,Pos(' ',s));       if (s1<>' ')and(s1<>'') then writeln(s1,' кол-во гласных ',Glas(s1);      End; End; Begin