Viết chương trình nhập vào 1 số tự nhiên có 4 chữ số kiểm tra xem có phải số tứ quý không?

0 bình luận về “Viết chương trình nhập vào 1 số tự nhiên có 4 chữ số kiểm tra xem có phải số tứ quý không?”

1. Program NN;
   Uses crt;
   Var St: string;
   Begin
           Clrscr;
           Write(‘Nhap so: ‘); Readln(St);
           If (St[1]=St[2]) and (St[2]=St[3]) and (St[3]=St[4]) then Write(‘YES’)
           Else Write(‘NO’);
           Readln
   End.

   Bình luận

2. Program KTso;

   Uses crt;

   var i:integer;

   Begin

   clrscr;

   write(‘Nhap so co 4 chu so:’);

   readln(i);

   If i mod 1111 = 0 then writeln(i,’ la so tu quy’)

   else writeln(i, ‘khong la so tu quy’) ;

   readln;

   End.

   Bình luận