Lm hộ mình câu 6 tin học 8 trang 55 vs ạ Mik hok chụp ảnh đc

0 bình luận về “Lm hộ mình câu 6 tin học 8 trang 55 vs ạ Mik hok chụp ảnh đc”

1. 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.

   Bình luận