nhập xâu nhị phân từ bàn phím in ra màn hình xâu chứa kí tự không Mọi người giúp em giải bài này với ạ!

0 bình luận về “nhập xâu nhị phân từ bàn phím in ra màn hình xâu chứa kí tự không Mọi người giúp em giải bài này với ạ!”

1. program mang1c;
   uses crt;
   var i:integer;
       s:string;
   BEGIN
   clrscr;
   write(‘Nhap xau nhi phan:’); readln(s);
   for i:=1 to length(s) do
     if (s[i]<>’1′)and(s[i]<>’0′) then
     begin
      writeln(‘Xau vua nhap khong phai xau nhi phan ‘);
      write(‘Nhap lai xau nhi phan s:’); readln(s);
     end;
   for i:=length(s) downto 1 do
    if s[i]=’1′ then delete(s,i,1);
   writeln(s);
   readln
   END.

   Bình luận