Создать программу в PascalABC (строки) - Pascal ABC
Формулировка задачи:
Программа должна выполнять следующие действия:
После запуска программы пользователя просят написать любой текст (текст на латинском языке, строчными буквами) заканчивающийся точкой.
Когда пользователь напечатал текст программа должна: напечатать все гласные буквы входящие в текст и вывести их количество.
Программу надо составить без использования Byte.
Решение задачи: «Создать программу в PascalABC (строки)»
textual
Листинг программы
- var a2,a:string;
- i,k:integer;
- begin
- write('Введите строку на латинском языке');
- readln(a);
- a:=' '+a;
- k:=0;
- for i:=1 to length (a) do
- if a[i]<>' ' then begin
- if a[i] in ['a','e','u','i','o'] then begin
- inc(k);
- a2:=a2+a[i]
- end;
- end;
- write(a2,k);
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
