Друзья, нужна помощь в составлении программы ** паскаль Вводим строчку (буквы, цифры,...

Question

Друзья, нужна помощь в составлении программы на паскаль

Вводим строчку (буквы, цифры, пробелы) с клавиатуры и программа должна найти рядом стоящие символы одинаковые и заменить их пробелом. Если к примеру у нас вся строчка из одинаковых символов - то результат - это пустая строчка (одни пробелы)

Желательно написать с табуляцией, чтобы понятна была структура проги

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 s,s1:string;
 i,n:integer;
 begin
 readln(s);
 i:=1;
n:=length(s);
while i<=n-1 do<br>  if s[i]=s[i+1] then
   begin
    s1:=s1+' ';
    i:=i+2;
   end
   else
   begin
    s1:=s1+s[i];
    inc(i);
   end;
s:=s1;
writeln(s);
 end.

Пример ввода:
2 is II, ASCII is encoding.
Пример вывода:
2 is  , ASC  is encoding.

Comments

у меня вот возник вопрос по алгоритму, если подряд несколько одинаковых

---

а нет, всё разобралась, спасибо огромное

---

Да, в первой версии, которую я сюда выкладывал, была баг если просто ввести нечётное количество одинаковых символов. Сейчас уже поправил.

---

Не за что.

---

*был. В своём репертуаре.