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

Question

Информатика

Тит

22 июля, 08:20

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

+1

Ответы (1)

Знаете ответ на вопрос?

Алевтинка · Answer 1

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