Nhập vào một xâu,hãy kiểm tra xâu nếu xâu có xuất hiện các kí tự số chẵn nhiều hơn các kí tự số lẻ thì in ra là xâu chẵn

0 bình luận về “Nhập vào một xâu,hãy kiểm tra xâu nếu xâu có xuất hiện các kí tự số chẵn nhiều hơn các kí tự số lẻ thì in ra là xâu chẵn”

1. program xau_chan_l;

   uses crt;

   var s,sc,sl:string;

         i,so:byte;

   begin

         clrscr;

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

         sc:=0;  sl:=0;

         for i:=1 to length(s) do

               begin

                     val(s[i],so);

                     if so mod 2=0 then sc:=sc+s[i] else sl:=sl+s[i];

               end;

         if length(sc)>=length(sl) then write(sc) else write(sl);

         readln;

   end.

   Bình luận

2. uses crt;
   var s,c,l:string;
   i,k:byte;
   begin
   clrscr;
   write(‘nhap xau s: ‘);  readln(s); 

   for i:=1 to length(s) do
   begin
   val(s[i],k);
   if k mod 2=0 then c:=c+s[i] else l:=l+s[i];
   end;
   if length(s)>=length(l) then write(c) else write(l);
   readln;
   end.

   Bình luận