В строке S1 заменить нечётные символы на строку S2. Программа в Паскале

В строке S1 заменить нечётные символы на строку S2. Программа в Паскале
Гость
Ответ(ы) на вопрос:
Гость
Var S1,S2,S3:string; i:integer; Begin Write('S1: ');ReadLn(S1); Write('S2: ');ReadLn(S2); For i:= 1 to Length(S1) do     if i mod 2 = 0 then S3:=S3+S2     else S3:=S3+S1[i]; S1:=S3; Write('S1: ',S1); End. Пример: S1: 123456789 S2: || S1: 1||3||5||7||9
Не нашли ответ?
Ответить на вопрос
Похожие вопросы