VIết chương trình nhập biển số bất kì có bốn số rồi kết luận, đó có phải là biển số xe tứ quý ( bốn chữ số giống nhau) hay không ?
VIết chương trình nhập biển số bất kì có bốn số rồi kết luận, đó có phải là biển số xe tứ quý ( bốn chữ số giống nhau) hay không ?
program biensoxe;
uses crt;
var a,b,c,d,e:real;
begin
writeln(‘nhap vao cac so cua bien so xe a,b,c,d,e’);
readln(a,b,c,d,e);
if b=c=d=e then writr(‘day la bien so tu quy’) else write(‘day khong phai la bien so chan’);
end.