B3: sử dụng vòng lặp, nếu n>1 và n không chia hết cho i thì thay đổi 1 lượng i
B4: nếu i=n thì in ra n là số nguyên tố
nếu không TM thì in ra n không phải là số nguyên tố, thoát chương trình
B5: quay lại B3
b)
uses crt; var n,i:longint; begin clrscr; n:=123; i:=2; while(n>1)and(n mod i<>0)do inc(i); if i=n then writeln(n,’ la so nguyen to’) else writeln(n,’ khong phai la so nguyen to’); readln end.
Bước 1: nhập N(Tất nhiên)
Bước 1.1: Nhập biến b = 0;
Bước 2: sử dụng vòng lặp for lặp từ 2 -> N
Bước 3: Nếu n chia hết cho các số từ 2 -> N thì b++;
Bước 4 kiểm tra nếu b = 2 thì n là số nguyên tố;nếu không phải thì không phải là số nguyên tố;
a)
B1: nhập n
B2: gán i=2
B3: sử dụng vòng lặp, nếu n>1 và n không chia hết cho i thì thay đổi 1 lượng i
B4: nếu i=n thì in ra n là số nguyên tố
nếu không TM thì in ra n không phải là số nguyên tố, thoát chương trình
B5: quay lại B3
b)
uses crt;
var n,i:longint;
begin
clrscr;
n:=123; i:=2;
while(n>1)and(n mod i<>0)do inc(i);
if i=n then writeln(n,’ la so nguyen to’)
else writeln(n,’ khong phai la so nguyen to’);
readln
end.