Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите объяснить задачу!
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.