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

Друзья, нужна помощь в составлении программы на паскаль Вводим строчку (буквы, цифры, пробелы) с клавиатуры и программа должна найти рядом стоящие символы одинаковые и заменить их пробелом. Если к примеру у нас вся строчка из одинаковых символов - то результат - это пустая строчка (одни пробелы) Желательно написать с табуляцией, чтобы понятна была структура проги
Гость
Ответ(ы) на вопрос:
Гость
//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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы