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 ạ)
2 câu trả lời
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.
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.
