Задача 9 Урок 17
Primary tabs
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:
для строки:
5533g
вернуть:
53g
для строки:
b5ghh55788oooggtttttt
вернуть:
b5gh578ogt
var s1, s2: string; i: integer; begin s1 := 'b5ghh55788oooggtttttt'; s2 := s1[1]; for i := 2 to length(s1) do begin if s1[i] <> s1[i-1] then s2 := s2 + s1[i]; end; writeln(s2); readln(); end.
КОНСОЛЬ
b5gh578ogt
- Log in to post comments
- 770 reads
vedro-compota
Sun, 12/05/2021 - 13:24
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)