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