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

Question

Информатика

Никитич

29 июля, 07:21

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

+5

Ответы (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