hiện nay biển số ngũ Linh 5 số giống nhau cũng được xem là biển số xe đẹp và hiếm Em hãy viết chương trình để kiểm tra biển số xe( 5 số) bất kì được nhập từ bàn phím có phải là biển số mũ Linh hay không
khai báo thêm biến chuc_nghin sau đó so sánh giá trị của năm biến: chục_nghìn ,nghìn ,trăm chục ,đơn _vị có sử dụng câu lệnh ghép begin.. end
Program NN;
Uses crt;
Var a,b,c,d,e,s: longint;
Begin
Clrscr;
Write(‘Nhap so: ‘); Readln(s);
a:=s div 10000;
s:=s mod 10000;
b:=s div 1000;
s:=s mod 1000;
c:=s div 100;
s:=s mod 100;
d:=s div 10;
s:=s mod 10;
e:=s;
If (a=b) and (b=c) and (c=d) and (d=e) then Write(‘YES’)
Else Write(‘NO’);
Readln
End.