Có một cậu bé mới được học sử dụng máy tính. Một trong những việc đầu tiên cậu ta muốn làm là dùng bàn phím gõ tên mình vào máy tính. Vì mới làm quen với máy tính nên đôi lúc cậu ta ấn phím trên bàn phím rất lâu kết quả có một số kí tự xuất hiện trên màn hình nhiều hơn một lần.
Yêu cầu: Bạn được cho xâu A là tên cậu ta và cho xâu B. Hỏi xâu B có phải là tên cậu ta khi gõ trên máy tính?
INPUT
Dòng 1 chứa xâu A
Dòng 2 chứa xâu B
OUTPUT
số 1 nếu B là tên khi gõ máy tính, ngược lại đưa ra 0.
Chú ý:
Độ dài của tên không quá 1000
Các kí tự trong tên chỉ gồm các chữ cái thường trong bảng chữ cái tiếng anh.
program kiemtra;
uses crt;
var a,b:ansistring;
begin
clrscr;
write(‘Nhap ten: ‘); readln(a);
write(‘Nhap xau B: ‘); readln(n);
if a<>b then write(0) else write(1);
readln
end.
uses crt;
var a,b:string;
BEGIN
clrscr;
write(‘Nhap xau A:’); readln(a);
write(‘Nhap xau B:’); readln(b);
if b<>a then write(1)
else write(0);
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.