Vct nhập hai số a và b.tìm số nguyên tố từ a đến b

0 bình luận về “Vct nhập hai số a và b.tìm số nguyên tố từ a đến b”

1. uses crt;
   var i,a,b:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      i:=2;
      while(a>1)and(a mod i<>0)do inc(i);
      nt:=i=a;
   end;
   begin
   clrscr;
      write(‘Nhap a,b: ‘);readln(a,b);
      write(‘Cac so nguyen to: ‘);
      for i:=a to b do if nt(i) then write(i,’ ‘);
   readln
   end.   

   Bình luận

2. program pht;
   uses crt;
     var a, b, i, j, s: integer;
   begin
         clrscr;
         write(‘Nhap a = ‘); readln(a);
         write(‘Nhap b = ‘); readln(b);
         writeln(‘Cac so ngto tu a den b la: ‘);
         for i:=a to b do
         begin
                   s:=0;
                   for j:=1 to i do if i mod j = 0 then s:=s+1;
                   if s=2 then write(i:3);
         end;
         readln
   end.

   Bình luận