Chủ đề này có 1 trả lời

[thang1308]

Viết chương trình liệt kê các số nguyên tố trong đoạn từ m đến n (m<n)

[NTL2k1]

Viết chương trình liệt kê các số nguyên tố trong đoạn từ m đến n (m<n)

 

program ktnt;

uses crt;

var m,n,i,j,k:word;

function nt(x:word):boolean;

var kt:boolean;

i,s:word;

begin

kt:=false;

s:=0;

for i:=1 to x do

if x mod i=0 then s:=s+1;

if s=2 then kt:=true;

nt:=kt;

end;

begin

clrscr;

k:=0;

write('Nhap m:');readln(m);

write('Nhap n:');readln(n);

for i:=m to n do

if nt(i) then

   begin

   k:=k+1;

   write(i,'  ');

   if k mod 20=0 then writeln;

   end;

readln

end.