Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So

@Katia777 · Регистрация: 03.05.2012

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

@Xo6ut · 10.02.2014, 03:02

Pascal

var
otvet:String; 
i:integer; 
S0,S:String;
C:char;
begin
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
for i:=1 to length(S) do
begin
if S[i]=C then Otvet:=otvet+C+S0
else Otvet:=otvet+S[i];
end;
 
Writeln('Ответ:', otvet);
end.

@Puporev · 10.02.2014, 08:26

Pascal

var
i:integer;
S0,S:String;
C:char;
begin
Writeln('Ââåäèòå ñòðîêy S');
readln(S);
Writeln('Ââåäèòå ñòðîêy S0');
readln(S0);
Writeln('Ââåäèòå ñèìâîë C');
readln(C);
for i:=length(S)downto 1 do
if S[i]=C then insert(s0,s,i+1);
write(s)
end.

@Katia777 0 / 0 / 0 Регистрация: 03.05.2012 Сообщений: 60
		1
	Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So 10.02.2014, 00:50. Показов 2663. Ответов 2 Метки нет (Все метки) Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So 0

Опции темы

Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So

Решение