Viết chương trình liệt kê các số nguyên tố từ 1 đến n ( n là số nguyên dương và được nhập từ bàn phím )
Viết chương trình liệt kê các số nguyên tố từ 1 đến n ( n là số nguyên dương và được nhập từ bàn phím )
By Everleigh
By Everleigh
Viết chương trình liệt kê các số nguyên tố từ 1 đến n ( n là số nguyên dương và được nhập từ bàn phím )
program songuyento;
uses crt;
var n,i : integer;
function snt(x : integer) : boolean;
var d,i : integer;
begin d:=0;
for i:=1 to x do if x mod i = 0 then d:=d+1;
if d=2 then snt:=true else snt:=false;
end;
begin clrscr;
write(‘Nhap so n :’); readln(n);
write(‘Cac so nguyen to tu 1 den ‘,n,’ la :’);
for i:=1 to n do if snt(i) = true then write(i:3);
readln
end.
program oken;
uses crt;
var n,i,j,dem: longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Cac so nguyen to tu 1 -> ‘,n,’: ‘);
for i:=1 to n do
begin
dem:=0;
for j:=2 to (i div 2) do
if i mod j=0 then
dem:=dem+1;
if dem=0 then
write(i,’ ‘);
end;
readln;
end.