Viết chương trình con tìm số nguyên tố VD: snt.inp 10 snt.out 2,3,5,7

0 bình luận về “Viết chương trình con tìm số nguyên tố VD: snt.inp 10 snt.out 2,3,5,7”

1. Function ngto(N:integer):Boolean;

   Var d,i:integer;

   Begin d:=0;

   For i:=1 to n do If n mod i=0 then inc(d);

   if d=2 then ngto:=true else ngto:=false;

   End;

   Bình luận

2. program songuyento;

   uses crt;

   var n,i:integer;

   function snt(k:integer):boolean;

   var l:integer;

   begin

   snt:=false;

   if k<2 then exit;

   for l:=2 to trunc(sqrt(k)) do

    if k mod l=0 then exit;

   snt:=true;

   end;

   BEGIN

   clrscr;

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

   for i:=2 to n do

    if snt(i) then write(i,’ ‘);

   readln

   end.

    

   Bình luận