Viết chương trình nhập vào 1 xâu có chữ và số, xuất ra màn hình xâu chỉ mang số.

0 bình luận về “Viết chương trình nhập vào 1 xâu có chữ và số, xuất ra màn hình xâu chỉ mang số.”

1. program Tin_hoc;

   uses crt;

   var i:integer;

         s1,s2:string;

   begin

   clrscr;

   writeln(‘Nhap xau:’);readln(s1);

   s2:=”;

   for i:= 1 to length(s1) do if s1[i] in [‘0’..’9′] then s2:= s2 + s1[i];

   writeln(‘Xau chi gom so :’,s2);

   readln;

   end.

   Nhớ cho mik câu tlhn nha

   Bình luận

2. uses crt;
   var s,str:string;
       i:byte;
   begin
   clrscr;
       read(s); readln; 
       for i:=1 to length(s) do
           if s[i] in [‘0’..’9′] then str:=str+s[i];
       write(str);
   readln;
   end.

   Bình luận