Viết chương trình nhận biết số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố không?
Viết chương trình nhận biết số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố không?
By Liliana
By Liliana
Viết chương trình nhận biết số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố không?
program so_nguyen_to;
Var
n,i,dem:longint;
Begin
write(‘Nhap N: ‘); readln(n);
dem:=1;
For i:=1 to n div 2 do if n mod i=0 then dem:=dem+1;
If dem=2 then write(n,’ la so nguyen to’) else write(n,’ khong la so nguyen to’);
Readln;
End.
______Chúc bạn học tốt_______
program nguyen_to;
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
if n<2 then write(n,’ khong phai so nguyen to’)
else
begin
d:=0;
for i:=1 to n do
if n mod i=0 then d:=d+1;
if d=2 then write(n,’ la so nguyen to’)
else write(n,’ khong phai so nguyen to’);
end;
readln;
end.