viết thuật toán

[Hồ Thị Diệu Thúy]

[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.

hãy viết chương trình kiểm tra 1 số N có phải là nguyên tố hay không.N được nhập từ bàn phím

 

[ka1412]

uses crt;
var n,i:integer;k:boolean;
begin
    clrscr;k:=true;
    write('Nhap n:');readln(n);
    if n<=1 then k:=false;
    if n>=2 then
    for i:=2 to n div 2 do
    if n mod i=0 then k:=false;
    if k=false then write(n,' khong la so nguyen to') else write(n,' la so nguyen to');
readln
end.