15. asal sayıya kadar yazan program.

uses crt;
            var
            asallar,j,i,b,c,sayac:integer;
            begin
            clrscr;
            sayac:=0;asallar:=0;
            i:=1;
            while (asallar<=15) do
          begin
            i:=i+1;
            for j:=1 to i do
            begin
            if i mod j=0 then
            begin
            sayac:=sayac+1;

            if sayac>2 then break;
            end;
            end;
            if sayac<=2 then
            begin
            asallar:=asallar+1;
            if asallar<25 then
            writeln(i)
            else if asallar<49 then
            begin gotoxy(10,asallar-24);writeln(i);
            end
            else if asallar<73 then
            begin gotoxy(20,asallar-48);writeln(i); end;
            end;
            sayac:=0;
            if asallar>72 then break;
          end;
          readkey;
            end.


Linkback: https://www.buyuknet.com/15-asal-sayiya-kadar-yazan-program-t10124.0.html