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 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
