Pascal - Nhập hai xâu từ bàn phìm và kiểm tra xem kí tự đầu của xâu thứ nhất có trùng với xâu thứ hai không

codevodoi
codevodoi

Để giải bài toán này chúng ta cần phải xác định bài toán:

  • INPUT: Nhập hai xâu từ bàn phím
  • OUTPUT: Kí tự đầu của hai xâu có giống nhau hay không

Bài toán này được giải như sau:

program codevodoi;
uses crt;
var a,b:string;
begin
	write('Nhap xau thu nhat: ');
	readln(a);
	write('Nhap xau thu hai: ');
	readln(b);
	if ( a[1] = b[1] ) then
		write('Giong nhau')
	else
		write('Khau nhau');
	readln
end.
Pascal