viết phương trình nhập từ bàn phím một xâu có độ dài không quá 200 kí tự. Đưa ra màn hình số tử có trong xâu

0 bình luận về “viết phương trình nhập từ bàn phím một xâu có độ dài không quá 200 kí tự. Đưa ra màn hình số tử có trong xâu”

1. program oken;
   uses crt;
   var s: string[200];
       i: byte;
   begin
       clrscr;
       write(‘Nhap xau: ‘); readln(s);
       write(‘Cac ki tu la so trong xau: ‘);
       for i:=1 to length(s) do
           if s[i] in [‘0’..’9′] then
               write(s[i],’ ‘);
       readln;
   end.

   Bình luận

2. uses crt;
   var        st : string;
   i,d : integer;
   begin clrscr; d:=0;
   write(‘Nhap xau ki tu :’); readln(st);
   for i:=1 to length(st) do if (st[i]=#32) and ((st[i-1] in [‘0’..’9′]) or (
   st[i-1] in [‘a’..’z’]) or (st[i-1] in  [‘A’..’Z’])) then d:=d+1;
   write(‘So tu co trong xau la :’,d+1);
   readln
   end.

   Bình luận