a.

INPUT: nhập n

OUTPUT: n là số nguyên tố hoặc n không là số nguyên tố

b.

◭ CHƯƠNG TRÌNH:

uses crt;

var d,n,i: integer;

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

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

if d = 2 then writeln(n,' la so nguyen to') else writeln(n,' khong la so nguyen to');

readln

end.

- Xác định bài toán :

+ Input : Số tự nhiên N

+ Output : 'N là số nguyên tố' hoặc 'N không là số nguyên tố'

- Viết chương trình :

uses crt;

var i, N, d : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

d := 1; for i := 2 to N - 1 do

if N mod i = 0 then d := 0;

if (d = 1) and (N > 1) then write(N,' la so nguyen to')

else write(N,' khong la so nguyen to');

readln

end.