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

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

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

@Alex47_pro · 18.03.2014, 09:25

вот:

Pascal

uses crt;
var s:string;
    i:integer;
begin
writeln('Введите предложение:');
readln(s);
for i:=1 to length(s) 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:53. Просмотров 1138. Ответов 1 Метки нет (Все метки) Ваша программа должна в заданном тексте удвоить первый символ, стоящий после каждого пробела. 0

Опции темы

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

Решение