В строке пробел и запятую, стоящие рядом, поменять местами

@DANKING · Регистрация: 26.04.2010

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

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

@Puporev · 28.04.2010, 08:52

Pascal

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Stroka:');
readln(s);
for i:=2 to length(s) do
 begin
  if(s[i]=' ')and(s[i-1]=',')then
   begin
    s[i]:=',';
    s[i-1]:=' ';
   end
  else if(s[i]=',')and(s[i-1]=' ')then
   begin
    s[i]:=' ';
    s[i-1]:=',';
   end;
 end;
write(s);
readln
end.

@DANKING 2 / 2 / 0 Регистрация: 26.04.2010 Сообщений: 30
		1
	В строке пробел и запятую, стоящие рядом, поменять местами 28.04.2010, 08:27. Показов 1473. Ответов 1 Метки нет (Все метки) Дана строка символов. В строке пробел и запятую, стоящие рядом, нужно поменять местами. Вывести полученную строку. 0

	28.04.2010, 08:52

В строке пробел и запятую, стоящие рядом, поменять местами

Решение