Tin học Viết chương trình

[Nhung Nguyễn]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào một số nguyên n>2. Kiểm tra xem n có phải là số nguyên tố không.
(giúp em với ạ:r2:r2)

 

[Sơn Nguyên 05]

Viết chương trình nhập vào một số nguyên n>2. Kiểm tra xem n có phải là số nguyên tố không.
(giúp em với ạ:r2:r2)

program kiem_tra_nguyen_to;
uses crt;
var n,i:integer; bl:boolean;
begin
clrscr;
bl:=true;
write('nhap vao so can kiem tra tinh nguyen to: '); readln(n);
if n<=1 then bl:=false;
for i:=2 to trunc(sqrt(n)) then
if n mod i=0 then bl:=false;
if bl=true then write('so vua nhap nguyen to.')
else write('so vua nhap khong nguyen to.');
readln;
end.
Nguồn: Google