Регистрация
akiceijuro
05.02.2020 06:15
Информатика
Есть ответ 👍

Дан текст на языке. найти количество гласных букв (pascal abc)

155
357
Посмотреть ответы 2

Ответы на вопрос:

Glebbb15
Glebbb15
4,6(52 оценок)
Program gt; var a: string; k,l,i: integer; begin readln(a); //сначала переведем вес текст в нижний регистр l: =length(a); k: =0; for i: =1 to l do begin if(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.
мила905
мила905
4,5(25 оценок)
#include < iostream> using namespace std; int main() {     char tmp;     cin > > tmp;     return 0; }

Популярно: Информатика