Урок 17 Задача 9
Primary tabs
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно)
var s, n: string; i: integer; begin write ('Введите произвольную строку: '); readln(s); for i:=1 to length(s) do if not (s[i] = s[i+1]) then // если следующий символ не равен текущему n:= n+s[i]; // записываем текущий символ в новую строку for i:=1 to length(n) do // обходим строку для вывода на экран write (n[i]); readln(); end.
Вывод в консоли:
Введите произвольную строку: dddhaalmm dhalm
- Log in to post comments
- 269 reads