Viết chương trình nhập vào số nguyên N và cho biết N có phải là số nguyên không

0 bình luận về “Viết chương trình nhập vào số nguyên N và cho biết N có phải là số nguyên không”

1. Program Hotboy ;

   Uses crt; 

   Var n,i Integer ;

   Dung: boolean ; 

   Begin

   Dung:=true; 

   Write(‘nhao n’); 

   Readln(n);

   For i:=2 to n-1 do 

   If n mod i=0 then dung:=false; 

   If dung then write(n,’ la so nguyen to’)

   Else

   Write(n,’khong la so nguyen to’);

   Readln

   End.

   Bình luận

2. program oken;

   uses crt;

   var n,i,dem:longint;

   begin

   clrscr;

             write(‘nhap n: ‘); readln(n);

             for i:=2 to n-1 do
                  if n mod i =0 then dem :=dem+1;
             if dem=0 then writeln(n,’ la so nguyen to’);
             if (n=0) or (n=1) or (dem>0) then writeln(n,’ khong phai la so nguyen to’);

             readln;

   end.
             
           

   Bình luận