Có rất nhiều cách để giải bài toán này, cách dưới đây tuy không bám sát vào cách làm trong bài viết Kiểm tra số nguyên tổ trong pascal nhưng cũng khá dễ hiểu.
var i,j,n:Integer;
A:array[1..50] of Integer;
begin
write['nhap n:'];
readln[n];
for i:=1 to n do
begin
write['nhap a[',i,'] '];
readln[a[i]];
end;
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc[j];
until [a[i] mod j=0];
if j>[a[i] div 2] then inc[d];
j:=1;
end;
write['Co ',d,' so ngto trog day'];
readln;
end.
Related Posts : Bài tập Pascal,Mảng 1 chiều,Pascal cơ bản
Uses crt;
Var n,i,d: longint;
Function ngto[a: longint]: boolean;
Var i: longint;
Begin
If a10 va N chia hết cho một số trong khoảng từ 2 đến [N-1].
Hướng dẫn cách tìm số nguyên tố trong pascal kiểm tra số nguyên tố pascal pascal kiểm tra số nguyên tố pascal số nguyên tố số nguyên pascal Số nguyên tố số nguyên tố pascal số nguyên tố trong pascal tìm số nguyên tố pascal tìm số nguyên tố trong pascal viết chương trình kiểm tra số nguyên tố trong pascal viết chương trình tìm số nguyên tố pascal