( lớp 8)nhập từ bàn phím 1 số nguyên dương, thông báo lên màn hình N có phải là số nguyên tố hay không
( lớp 8)nhập từ bàn phím 1 số nguyên dương, thông báo lên màn hình N có phải là số nguyên tố hay không
By Brielle
By Brielle
( lớp 8)nhập từ bàn phím 1 số nguyên dương, thông báo lên màn hình N có phải là số nguyên tố hay không
Program so_nguyen_to
Uses crt;
var i,n,dem:Integer;
Begin ClrScr;
write(‘Nhap so nguyen duong n’);ReadLn(n);
dem:=0;
for i:= 1 to n do if n mod i=0 then dem:=dem+1;
if (n<2) or (dem<>2) then writeln(n,’ khong phai la so nguyen to’)
Else if dem=2 then writeln(n,’ la so nguyen to’);
Readln
End.
program phuongt;
uses crt;
var n, i, s: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
for i:=1 to n do if n mod i = 0 then s:=s+1;
if (n<2) or (s<>2) then write(n, ‘ khong la so ngto’)
else
write(n, ‘ la so ngto’);
readln
end.