viết chương trình nhập 1 xâu S. tạo xâu s1 gồm 3 phần tử cuối cùng của xâu S, xâu S,s1 ra màn hình

0 bình luận về “viết chương trình nhập 1 xâu S. tạo xâu s1 gồm 3 phần tử cuối cùng của xâu S, xâu S,s1 ra màn hình”

1. program Xau;
   uses crt;
   var   s,s1: string;
                  i: byte;
   begin
         clrscr;
        
         write(‘Nhap xau S: ‘); readln(s);
        
         for i:=length(s) downto length(s)–2 do
        
               s1:= s[i] + s1;
           
         writeln(‘Xau S la: ‘,s);
        
         write(‘Xau S1 la: ‘,s1);
        
   readln;
   end.

   Bình luận

2. program Xau_ky_tu;

   uses crt;
   var   s,s1: string;
                  i: byte;
   begin
         clrscr;
        
         write(‘Nhap xau S: ‘); readln(s);
        
         for i:=length(s) downto length(s)–2 do
               s1:= s[i] + s1;
           
         writeln(‘Xau S la: ‘,s);
        
         write(‘Xau S1 la: ‘,s1);
        delay(5000);
   readln;
   end.

   Bình luận