( lớp 8)nhập từ bàn phím 1 số nguyên dương, thông báo lên màn hình N có phải là số nguyên tố hay không

0 bình luận về “( lớp 8)nhập từ bàn phím 1 số nguyên dương, thông báo lên màn hình N có phải là số nguyên tố hay không”

1. Program so_nguyen_to

   Uses crt;

   var i,n,dem:Integer;

   Begin ClrScr;

   write(‘Nhap so nguyen duong n’);ReadLn(n);

   dem:=0;

   for i:= 1 to n do if n mod i=0 then dem:=dem+1;

   if (n<2) or (dem<>2) then writeln(n,’ khong phai la so nguyen to’)

   Else if dem=2 then writeln(n,’ la so nguyen to’);

   Readln

   End.

   Bình luận

2. program phuongt;
   uses crt;
    var n, i, s: integer;
    begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           s:=0;
           for i:=1 to n do if n mod i = 0 then s:=s+1;
           if (n<2) or (s<>2) then write(n, ‘ khong la so ngto’)
           else
                   write(n, ‘ la so ngto’);
           readln
   end.

   Bình luận