Удвоить каждый символ строки, стоящий левее каждого пробела

@Pepsikan1 · Регистрация: 11.03.2014

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

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

@Alex47_pro · 18.03.2014, 09:32

Pascal

var s:string;
    i:integer;
begin
writeln('Введите предложение:');
readln(s);
for i:=length(s) downto 1 do
 if s[i]=' ' then
 insert(s[i-1],s,i-1); 
 writeln(s);
end.

@Pepsikan1 0 / 0 / 0 Регистрация: 11.03.2014 Сообщений: 9
		1
	Удвоить каждый символ строки, стоящий левее каждого пробела 17.03.2014, 13:52. Показов 1505. Ответов 1 Метки нет (Все метки) Ваша программа должна в заданном тексте удвоить каждый символ, стоящий левее каждого пробела 0

	18.03.2014, 09:32

Удвоить каждый символ строки, стоящий левее каждого пробела

Решение