Kullanıcının dısardan girdiği kaçıncı asaldan kaç adet asalı yazmasını isteyen

tarantula90121.11.2008 - 19:14
Kullanıcının dısardan girdiği kaçıncı asaldan kaç adet asalı yazmasını isteyen program.


   
Kod: [Seç]
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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Kullanıcının dısardan girdiği kaçıncı asaldan kaç adet asalı yazmasını isteyen
Kullanıcının dısardan girdiği kaçıncı asaldan kaç adet asalı yazmasını isteyen
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2