viết ct pascal Từ xưa số 9 luôn được coi là biểu trưng của sự quyền uy và sức mạnh.Ngai vua thường được dặt trên 9 bậc. một số được gọi là số quyền uy nếu tổng các chữ số của nó là số nguyên tố và tận cùng là 9, ví dụ 1990 là số quyền uy vì 1+9+9+0=19 là số nguyên tố tận cùng 9. nhập từ bàn phím một số nguyên n. thông báo ra màn hình yes nếu n là số quyền uy ngược lại in ra no

Ảnh 1 : kiểm tra có chạy đúng bước chưa

Ảnh 2 : đã xóa các câu lệnh dư thừa

Code ảnh 1 :

Uses crt;
 var n, s , a, kt: longint;
  Ql : string ;
  begin
   clrscr;
    readln(n);
    while n<> 0 do
     begin
      a := n mod 10;
      s := s + a ;
      n := n div 10 ;
     end ;
 writeln(s);
 Kt := round(sqrt(s));
  if (s mod kt <> 0) or (s=2) then
      begin
      Write('La so nguyen to ');
      str(s,ql);
      Writeln(ql);
      if pos('9',ql)<>0 then Writeln('YES')
              else Writeln('No');
              end;
            end.
 Code ảnh 2 :

Uses crt;
 var n, s , a, kt: longint;
  Ql : string ;
  begin
   clrscr;
    readln(n);
    while n<> 0 do
     begin
      a := n mod 10;
      s := s + a ;
      n := n div 10 ;
     end ;
 Kt := round(sqrt(s));
  if (s mod kt <> 0) or (s=2) then
      begin
      str(s,ql);
      if pos('9',ql)<>0 then Writeln('YES')
              else Writeln('No');
              end;
            end.