Kullanıcının dısardan girdiği kaçıncı asaldan kaç adet asalı yazmasını isteyen program.
uses crt;
var
asallar,j,i,b,c,sayac,k,a:longint;
begin
clrscr;
sayac:=0;asallar:=0;
writeln('kaç tane asal yazdırmak istiyorsunuz:');
readln(k);
writeln('kaçdan sonraki asal sayılar olsun:');
readln(a);
i:=a;
while (asallar<k) 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/kullanicinin-disardan-girdigi-kacinci-asaldan-kac-adet-asali-yazmasini-isteyen-t10125.0.html