Замена символов

@лёлька · Регистрация: 02.02.2010

Студворк — интернет-сервис помощи студентам

Написать программу, которая удаляет лишние пробелы в заданной строке, и заменить символы «#» на введенный символ.

@Puporev · 09.02.2010, 10:19

Pascal

uses crt;
var s:string;
    c:char;
    i:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
write('Введите символ для замены:');
readln(c);
for i:=length(s) downto 1 do
 begin
  if (s[i]=' ')and(s[i+1]=' ') then delete(s,i,1);
  if s[i]='#' then s[i]:=c;
 end;
write(s);
readln
end.

@лёлька 17 / 17 / 0 Регистрация: 02.02.2010 Сообщений: 92
		1
	Замена символов 09.02.2010, 09:19. Показов 1190. Ответов 1 Метки нет (Все метки) Написать программу, которая удаляет лишние пробелы в заданной строке, и заменить символы «#» на введенный символ. 0

Опции темы

Замена символов

Решение