Определить длину строки и количество букв « а » в ней. Вывести три буквы (свои инициалы) с точками - Free Pascal
Формулировка задачи:
Ввести Ф.И.О. как одно данное строкового типа. Определить длину строки и количество букв « а » в ней. Вывести три буквы (свои инициалы) с точками.
Решение задачи: «Определить длину строки и количество букв « а » в ней. Вывести три буквы (свои инициалы) с точками»
textual
Листинг программы
S:=' '+St; While Pos(' ',S)<>0 do Begin Write(S[Pos(' ',S)+1],'.'); Delete(S,Pos(' ',S),1); end; Writeln;
Объяснение кода листинга программы
- Инициализация переменной S значением
- В цикле while с условием Pos(' ',S)<>0 выполняется следующая операция:
- Выводится значение S[Pos(' ',S)+1] (следующий символ после пробела) с точкой после него.
- Из строки S удаляется пробел и один следующий символ (до следующего пробела).
- После цикла выводится символ новой строки (Writeln).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д