Задача 9 урок 17
Primary tabs
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все
смежные (соседние) повторяющиеся символы должны быть "удалены"
(т.е. повторов в новой строке быть не должно), например:
b5ghh55788oooggtttttt
b5gh578ogt
var t: string; s: string; i: integer; begin writeln('insert a string s '); readln(s); t := ''; //инициализация пустой стоки t if length(s) > 0 then t := s[1]; // присвоение первого значения из строки s в строку t for i := 2 to length(s) do // посимвольное заполнение if s[i] <> t[length(t)] then //если нет одинаковых рядом t := t + s[i]; // прибавляем следующий элемент в строку t s := t; //по окончании цикла форматированная строка т присвается строке s writeln(s); readln end.
Консоль: ввод: b5ghh55788oooggtttttt
вывод: b5gh578ogt
- Log in to post comments
- 969 reads
vedro-compota
Wed, 11/24/2021 - 18:48
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)