2. Viết chương trình nhập vào 1 số nguyên n,kiểm tra xem n có phải số nguyên hay không

0 bình luận về “2. Viết chương trình nhập vào 1 số nguyên n,kiểm tra xem n có phải số nguyên hay không”

1. Program Hotboy ;

   Uses crt;

   Var n, i: integer;

       Hb: boolean;

   Begin

   Clrscr;

   Hb:=true;

   Write(‘Nhap n: ‘);

   Readln(n);

   For i:= 2 to n – 1do

   If (n mod i = 0) then  

      Hb :=false;

      If Hb then

   Write(n,’ la so nguyen to’)

      Else

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

      Readln

   End.

   Bình luận

2. program xt;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

   write(‘nhap vao so nguyen:=’);readln(n);

   if n<=1 then writeln(‘n khong phai so nguyen to’) else

   begin

   i:=2;

   while n mod i<>0 do i:=i+1;

   if i=n then writeln(‘so nguyen to la:’,n) else writeln(‘khong phai la so nguyen to:’,n);

   end;

   readln

   end.

   Bình luận