Dùng NNLT free IDE pascal,VCT nhập vào một chuỗi X,kiểm tra xâu:xâu mà có các kí tự số chẵn nhiều hơn các kí tự số lẻ thì in ra là xâu lẻ và ngược lại thì in ra xâu lẻ
Dùng NNLT free IDE pascal,VCT nhập vào một chuỗi X,kiểm tra xâu:xâu mà có các kí tự số chẵn nhiều hơn các kí tự số lẻ thì in ra là xâu lẻ và ngược lại thì in ra xâu lẻ
program xau_so;
uses crt;
var xau,xc,xl:string;
i,so:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(xau);
xc:=”; xl:=”;
for i:=1 to length(xau) do
begin
val(xau[i],so);
if so mod 2=0 then xc:=xc+xau[i] else xl:=xl+xau[i];
end;
if length(xc)>length(xl) then write(xc) else write(xl);
readln;
end.
uses crt;
var x:string; i,c,l:longint;
begin
clrscr;
write(‘Nhap mot chuoi X: ‘);readln(x);
for i:=1 to length(x) do
if x[i] in [‘0′,’2′,’4′,’6′,’8’]
then inc(c) else inc(l);
if c>l then writeln(‘Day la xau chan’) else
writeln(‘Day la xau le’);
readln
end.