Soru = Klavyeden girilen N sayısına kadar olan asal sayıları listeleyen programı prosedürde yapınız.

Şekli :

Kodlar :

Procedure asal(sayi:integer); 
var 
k,i,syc:integer;
begin 
for i:=1 to sayi do
begin 
for k:=1 to i-1 do
begin 
if (i mod k=0) then syc:=syc+1;
end; 
if syc=1 then
form1.ListBox1.Items.Add(inttostr(k));
syc:=0;
end; 
end; 

Procedure TForm1.Button1Click(Sender: TObject); 
begin 
form1.ListBox1.Items.Clear;
asal(strtoint(edit1.Text));
end;

Çalışma Şekli :

Programı çalıştırdıktan sonra bir sayı girdiğimizde ‘Asal Sayıları Listele' butonuna tıkladığında girilen sayıya kadar bulunan bütün asal sayıları ekrana listeler.