Дан текст из строчных латинских букв, за которым следует точка. Определить каких букв-гласных (a,e,o,i,u) или согласных - больше в этом тексте

Поделиться:

Использовать множество, при выполнении этого задания.

code: #pascal
const
 vow=['a','e','y','u','i','o'];
 con=['q','w','r','t','p','s','d','f','g','h','j','k','l',
      'z','x','c','v','b','n','m'];
  var
 t:string;
 i,j,n,m:integer;
 
 begin
 write('Напишите предложение: ');readln(t);
 n:=0;
 m:=0;
 for i:=1 to length(t) do
  begin
   if t[i] in con then m:=m+1;
   if t[i] in vow then n:=n+1;
  end;
 writeln('Согласных=',m);
 writeln('Гласных  =',n);
 if n>m then writeln('Гласных больше чем согласных')
 else if m>n then writeln('Согласных больше чем гласных')
 else writeln('Гласных столько же, сколько и согласных');
 readln;
 end.

автор: Puporev

Похожие статьи: