В строке удалить символ двоеточие и подсчитать количество удаленных символов - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

помогите написать программу на pascal ABC а) В строке удалить символ двоеточие и подсчитать количество удаленных символов. б) Выбрав любое базовое слово по своему усмотрению, составить программ, которая из базового слова получает 4 новых слов, используя операцию сцепления и команду Copy.

Решение задачи: «В строке удалить символ двоеточие и подсчитать количество удаленных символов»

textual
Листинг программы
uses crt;
var a:string;
    kol:integer;
begin
writeln('Введите строку');
readln(a);
while pos(':',a) <> 0 do
       begin delete(a,pos(':',a),1); Inc(kol); end;
writeln('Строка: ',a);
writeln('Количество удаленных символов ',kol);
end.

Объяснение кода листинга программы

  1. Строка вводится с помощью функции readln().
  2. Затем используется цикл while, который продолжается до тех пор, пока позиция двоеточия в строке не станет равной нулю.
  3. Внутри цикла функция delete() используется для удаления символов, начиная с позиции двоеточия и до конца строки (это обеспечивает предыдущий код).
  4. Функция Inc() увеличивается значение переменной kol на единицу после каждого удаленного символа.
  5. После завершения цикла выводится исходная строка и значение переменной kol.

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы