Question

создайте из четных символов строки s1 строку s2 и из нечетных символов s3

Answer 1

Ответ:

program z;

var s1,s2,s3:string;

i:integer;

begin

read(s1);

s2:='';

s3:='';

for i:=1 to length(s1) do

if i mod 2 = 0 then s2:=s2+s1[i] else s3:=s3+s1[i];

writeln(s2);

writeln(s3)

end.