Вставить после каждого пробела в строке заданный символ

@гошанчик · Регистрация: 22.12.2010

ввести строку и один символ. вставить после каждого пробела в строке этот символ

@Holy_Metal · 23.03.2011, 11:26

Pascal

uses 
    crt;
var 
    a:string;
    i:integer;
    b:char;
begin
writeln('Введите строку');
readln(a);
writeln('Введите символ');
readln(b);
for i:=1 to length(a) do
     if a[i]=' ' then a[i]:=b;
writeln(a);
end.

@Jazon_deenAlt · 23.03.2011, 11:29

Pascal

uses crt;
var
s,ss:string;
i:integer;
begin
readln(s,ss);
for i:=length(s) downto 1 do
if s[i]=' ' then insert(ss,s,i+1);
writeln(s);
end.

@Holy_Metal · 23.03.2011, 11:31

А да, так правильней, сори задание не так понял

@гошанчик 33 / 33 / 0 Регистрация: 22.12.2010 Сообщений: 140
		1
	Вставить после каждого пробела в строке заданный символ 23.03.2011, 11:20. Просмотров 1656. Ответов 3 Метки нет (Все метки) ввести строку и один символ. вставить после каждого пробела в строке этот символ 0

@Holy_Metal 72 / 72 / 60 Регистрация: 14.12.2010 Сообщений: 201
	23.03.2011, 11:31	4
	А да, так правильней, сори задание не так понял 0

Опции темы