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
  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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Не за что.

Answer 6

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