Задача 9 урок 16
Primary tabs
Задача 9 урок 16
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно)
var s, S1: string; i: Integer; flag: boolean; begin flag:=true; writeln('Vvedite stroku'); readln(s); for i:=1 to length(s) do begin if flag then S1:=S1+s[i]; if s[i]=s[i+1] then flag:=false else flag:=true; end; writeln(S1); readln(); end.
- Log in to post comments
- 595 reads