Предмет: Информатика,
автор: Лотарингская
Друзья, нужна помощь в составлении программы на паскаль
Вводим строчку (буквы, цифры, пробелы) с клавиатуры и программа должна найти рядом стоящие символы одинаковые и заменить их пробелом. Если к примеру у нас вся строчка из одинаковых символов - то результат - это пустая строчка (одни пробелы)
Желательно написать с табуляцией, чтобы понятна была структура проги
Ответы
Автор ответа:
0
//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.
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.
Автор ответа:
0
у меня вот возник вопрос по алгоритму, если подряд несколько одинаковых
Автор ответа:
0
а нет, всё разобралась, спасибо огромное
Автор ответа:
0
Да, в первой версии, которую я сюда выкладывал, была баг если просто ввести нечётное количество одинаковых символов. Сейчас уже поправил.
Автор ответа:
0
Не за что.
Автор ответа:
0
*был. В своём репертуаре.
Интересные вопросы
Предмет: Математика,
автор: loll58
Предмет: Қазақ тiлi,
автор: LonelY111Y
Предмет: Геометрия,
автор: Klochkovainessa25
Предмет: Математика,
автор: Данич145