Даны допустимые строки

@Wolume82 · Регистрация: 26.08.2009

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

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

@Puporev · 04.09.2010, 11:15

Сообщение от Wolume82

Даны допустимые строки S,S1

Это в каком смысле допустимые?

@Wolume82 · 04.09.2010, 12:54 **[ТС]**

Ошибочка вышла просим прощения (не допустимые),а (не пустые)

@Puporev · 04.09.2010, 14:26

Pascal

uses crt;
var s,s1:string;
    c:char;
    i,k:byte;
begin
clrscr;
repeat
writeln('Введите первую строку:');
readln(s);
until s<>'';
repeat
writeln('Введите вторую строку:');
readln(s1);
until s1<>'';
write('Введите символ, содержащийся в первой строке c=');
readln(c);
k:=0;
for i:=length(s) downto 1 do
if s[i]=c then
 begin
  insert(s1,s,i+1);
  k:=1;
 end;
if k=0 then write('В первой строке нет символа ',c)
else write(s);
readln
end.

@Wolume82 0 / 0 / 0 Регистрация: 26.08.2009 Сообщений: 14
		1
	Даны допустимые строки 04.09.2010, 08:53. Показов 872. Ответов 3 Метки нет (Все метки) Даны допустимые строки S,S1 и символ С. После каждого вхождения символа С в строку S вставить строку S1. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	04.09.2010, 11:15	2
	Сообщение от Wolume82 Даны допустимые строки S,S1 Это в каком смысле допустимые? 0

@Wolume82 0 / 0 / 0 Регистрация: 26.08.2009 Сообщений: 14
	04.09.2010, 12:54 [ТС]	3
	Ошибочка вышла просим прощения (не допустимые),а (не пустые) 0

	04.09.2010, 14:26

Опции темы