Nhập một số nguyên N từ bàn phím kiểm tra xem N có là số nguyên tố không

2 câu trả lời

Bài làm :

program so nguyen to;

uses crt;

var kt,n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to n-1 do 

if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

xin hay nhất ạ 

Thuật toán
Dựa vào định nghĩa của số nguyên tố chúng ta sẽ có cách giải như sau:

Bước 1: Nhập vào n.

Bước 2: Kiểm tra nếu n < 2 thì kết luận n không phải là số nguyên tố

Bước 3: Lặp từ 2 tới (n-1),

Nếu trong khoảng này tồn tại số mà n chia hết thì kết luận n không phải là số nguyên tố, ngược lại n là số nguyên tố.

Câu hỏi trong lớp Xem thêm