nhập 1 số nguyên dương từ bàn phím kiểm tra đó có là số nguyên tố không?

Question

nhập 1 số nguyên dương từ bàn phím  kiểm tra đó có là số nguyên tố không?

diemchau · Answer

program SNT;

uses crt;

var n,i,d: integer;

Begin

clrscr;

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

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

if d=2 then write(n,’ la so nguyen to’)

else write(n,’ khong la so nguyen to’);

readln

End.

0 bình luận về “nhập 1 số nguyên dương từ bàn phím kiểm tra đó có là số nguyên tố không?”