VCT nhập số nguyên dương n
in ra màn hình n có phải là số nguyên tố hay k??
VCT nhập số nguyên dương n in ra màn hình n có phải là số nguyên tố hay k??
By Autumn
By Autumn
VCT nhập số nguyên dương n
in ra màn hình n có phải là số nguyên tố hay k??
Program so_nguyen_to;
Uses Crt;
Var n,i:integer;
Begin
Clrscr;
Writeln (‘Nhap vao mot so nguyen duong:’);
readln (n);
If n<=1 then writeln (‘N khong pha la so nguyen to’)
Else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln (n,’la so nguyen to’)
else writeln (n,’khong phai la so nguyen to’);
end;
readln;
End.
Cho mình xin CTLHN nha. Chúc bạn học tốt
Program abc;
uses crt;
var i,s,n : longint;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
if n<=0 then exit;
for i:=1 to n do if n mod i = 0 then s:=s+1;
if s=2 then write(‘Day la so nguyen to’) else write(‘Day khong phai la so nguyen to’);
readln
end.