Viết chương trình nhập vào 1 xâu kiểm tra kí tự nhập vào bàn phím cùng với kí tự cuối cùng còn xâu đã nhập hay không:( giúp em với ạ)

0 bình luận về “Viết chương trình nhập vào 1 xâu kiểm tra kí tự nhập vào bàn phím cùng với kí tự cuối cùng còn xâu đã nhập hay không:( giúp em với ạ)”

1. uses crt;
   var str:string;
       c:char;
   begin
   clrscr;
       readln(str);
       readln(c); 
       if str[length(str)]=c then write(‘true’) else write(‘false’);
   readln;
   end.

   Bình luận

2. program Xau;
   uses CRT;
   var   s,s1: string;
           i,d: byte;
   begin
         clrscr;
        
         write(‘Nhap xau S: ‘);readln(s);
        
         write(‘Nhap ki tu : ‘);readln(s1);
        
         d:=length(s);
        
         If s[d] = s1 then write(‘Trung voi ki tu cuoi cua xau’)
         else write(‘Khong trung voi ki tu cuoi cua xau’);
        
   readln;
   end.

   Bình luận