Помогите объяснить задачу! Program String29; 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); fo...
Помогите объяснить задачу!
Program String29;
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+S0+C
else Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
end.
Гость
Ответ(ы) на вопрос:
Гость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
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
end.
Не нашли ответ?
Похожие вопросы