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ẻ)
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ẻ)
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.
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.