Question

ПИТОН срочно
Создайте из четных символов строки s1 строку s2 и из нечетных символов s3

Answer 1

procedure TForm1.Button1Click(Sender: TObject);

var

S1, S2, S3 : String;

i : Integer;

begin

S1 := Edit1.Text; //Исходная строка.

S2 := ''; //Строка из чётных символов строки S1.

S3 := ''; //Строка из НЕчётных символов строки S1.

for i := 1 to Length(S) do

if i mod 2 = 0 then

S2 := S2 + S1[i]

else

S3 := S3 + S1[i];

Edit2.Text := S2;

Edut3.Text := S3;

end;