Перед каждым вхождением символа C в строку S вставить строку S0 - VB

Формулировка задачи:

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

program String30;
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+C+S0
else Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
end.

Решение задачи: «Перед каждым вхождением символа C в строку S вставить строку S0»

textual
                            Листинг программы 
                        

                            sub такая_то
dim S as string'остальные
s=inputbox'     аналогично
'а все остальное в прошлой теме
end sub
                        

Оцени полезность:

12 голосов , оценка 4.167 из 5

Похожие ответы