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

Ответы 1

  • program gt;var a:string;k,l,i:integer;beginreadln(a);//Сначала переведем вес текст в нижний регистрl:=length(a);k:=0;for i:=1 to l dobeginif(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквамиend;writeln(k);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years