Vtc pascal nhập số n có đúng 4 chữ số, Thực hiện : Tính tổng các chữ số của n và xét tổng đó có phải là số nguyên tố không? Xuất ra màn hình số n theo

0 bình luận về “Vtc pascal nhập số n có đúng 4 chữ số, Thực hiện : Tính tổng các chữ số của n và xét tổng đó có phải là số nguyên tố không? Xuất ra màn hình số n theo”

1. program BT;

   uses crt;
   var n,i,d,x,y,t,kt: integer;
         st,s: string;
   Begin
            clrscr;
            repeat
            write(‘Nhap n: ‘); readln(n);
            until (1000<=n) and (n<=9999);
            str(n,st);
            d:=length(st);
            t:=0;
            for i:=1 to d do
            begin
                     val (st[i],x,y);
                     t:=t+x;
            end;
            writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,t);
            if t>1 then
            begin
                     for i:=2 to trunc(sqrt(t)) do
                     if t mod i=0 then kt:=1;
                     if kt=0 then writeln(‘Tong 4 chu so cua ‘,n,’ la so nguyen to’)
                     else writeln(‘Tong 4 chu so cua ‘,n,’ khong la so nguyen to’);
            end;
            s:=’ ‘;
            for i:=d downto 1 do s:=s+st[i];
            while s[1]=’0′ do delete(s,1,1);
            writeln(n,’ viet nguoc lai la: ‘,s);
            readln;
   end.

   Bình luận

2. uses crt;
   var n,a,tong:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      i:=2;
      while(a>1)and(a mod i<>0)do inc(i);
      nt:=i=a;
   end;
   begin
   clrscr;
      write(‘N=’);readln(n);
      a:=n;
      tong:=0;
      repeat
         inc(tong,a mod 10);
         a:=a div 10;
      until a=0;
      writeln(‘Tong cac chu so cua n: ‘,tong);
      if nt(tong) then writeln(‘Tong nay la so nguyen to’) 
         else writeln(‘Tong nay khong la so nguyen to’);
      write(‘So dao nguoc: ‘);
      a:=n;
      repeat
         write(a mod 10);
         a:=a div 10;
      until a=0;
   readln
   end.

   Bình luận