Đề bài: Viết chương trình nhập từ bàn phím 1 xâu kí tự chỉ gồm 2 loại kí tự là chữ và số. Đưa ra màn hình – Xâu vừa nhập được theo chiều ngược – Toàn

0 bình luận về “Đề bài: Viết chương trình nhập từ bàn phím 1 xâu kí tự chỉ gồm 2 loại kí tự là chữ và số. Đưa ra màn hình – Xâu vừa nhập được theo chiều ngược – Toàn”

1. program ct;

   uses crt;

   var i:integer;

   s:string;

   begin

   clrscrl;

   write'(nhap xau:’=);readln(s);

   for i:=length(s)  downto 1 do write(s[i]);

   writeln;

   for i:=1 to length(s) do 

   if (s[i]>=’A’) and (s[i]<=’Z’) then write(s[i])

   readln

   end.

   Bình luận

2. uses crt;
   var s:string; i:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=length(s) downto 1 do write(s[i]);
      writeln;
      for i:=1 to length(s) do
      if (s[i]>=’A’) and (s[i]<=’z’) then write(s[i]);
      readln
   end.

   Bình luận