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??

Question

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??

huongtram · Answer

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.

tonhi · Answer

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