viết chương trình pascal nhập n kiểm tra n có phải là số nguyên tố? xuất ra màn hình các nguyên tố từ 2 đến n kiểm tra n có phải là số chính phương x

0 bình luận về “viết chương trình pascal nhập n kiểm tra n có phải là số nguyên tố? xuất ra màn hình các nguyên tố từ 2 đến n kiểm tra n có phải là số chính phương x”

1. Program BTT;
   Uses crt;
   Var n,i,t,d: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Function scp(b: longint): boolean;
   Begin
           If b=sqr(trunc(sqrt(b))) then exit(true);
                                          exit(false);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);

           t:=0;
           If ngto(n) then Writeln(n,’ la so nguyen to’)
           Else Writeln(n,’ khong phai la so nguyen to’);

           Write(‘Cac so ngto tu 2 -> ‘,n,’ la: ‘);
           For i:=1 to n do
                   If ngto(i) then Write(i,’ ‘);

           Writeln;

           If scp(n) then Writeln(n,’ la so chinh phuong’)
           Else Writeln(n,’ khong phai la so chinh phuong’);
           Write(‘Cac so chinh phuong chia het cho 3 va 6 tu 0 -> ‘,n,’ la: ‘);
           For i:=0 to n do
                   If (scp(i)) and (i mod 3 = 0) and (i mod 6 = 0) then Write(i,’ ‘);
           Readln;

   End.

   Bình luận