Nhập vào một xâu gồm các kí tự số,tách xâu thành hai xâu( xâu 1 gồm các kí tự số chẵn và xâu 2 gồm các kí tự số lẻ)

Question

dananh · Answer

program tach_xau;

ues crt;

var s,xc,xl:string;

i,so:byte;

begin

clrscr;

write(‘Nhap xau so: ‘); readln(s);

xc:=”; xl:=”;

for i:=1 to length(s) do

begin

val(s[i],so);

if so mod 2=0 then xc:=xc+s[i] else xl:=xl+s[i];

end;

writeln(‘Xau chan la: ‘,xc);

writeln(‘Xau le la: ‘,xl);

readln;

end.

kimlien · Answer

uses crt;

var s,s1,s2: string;

i: byte;

begin

clrscr;

write (‘nhap xau s: ‘); readln (s);

for i:=1 to length(s) do

if (s[i]=’1′) or (s[i]=’3′) or (s[i]=’5′) or (s[i]=’7′) or (s[i]=’9′) then s1:=s1+s[i]

else s2:=s2+s[i];

writeln (‘xau so le la: ‘,s1);

writeln (‘xau so chan la: ‘,s2);

readln;

end.