tam bölenleri bulma ;

var
sayi,k,adet:integer;
begin
adet:=0;
sayi:=strtoınt(edit1.text);
memo1.clear;
for k:=1 to sayi do
begin
if sayi mod k=0 then
begin
adet:= adet+1;
memo1.lines.add(ınttostr(k));
end;
end;
memo1.lines.add(ınttostr(k));
end;
end;


-------------------------------------------------------
Asal sayı bulma ;

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
baslangic,bitis,carpan,i,j:integer;
begin
//listbox temizleniyor.
listbox1.clear;
//İstenilen aralık alınıyor..
baslangic:=strtoinT(edit1.text);
bitis:=strtoint(edit2.text);
//Aralıktaki her sayının asal sayı olup olmadığını kontrol etmek için döngü kuruluyor.
For i:=baslangic To bitis Do Begin
//Asıl kısım..Buradan sonra bir sayının asal olup olmadığı kontrol edilir.
//Bir sonraki sayının kontrolü için carpan değişkeni sıfırlanıyor.
carpan:=0;
For j:=1 To i Do
//Sayı 1’den kendisine kadar olan sayılara bölünür.Kalan 0 ise tam bölünmüş demektir.

//Tam bölünüyorsa carpan degiskeninin değeri 1 arttırılıyor.
If (i mod j=0) Then
carpan:=carpan+1;
//Sayı 1 ve kendisine yani 2 adet sayıya tam olarak bölünürse asaldır..Sayının asal olup olmadığı kontrol ediliyor.
If carpan=2 Then
listbox1.Items.add(inttostr(i)); //sayı asal ise listbox’a ekleniyor..
end;
end;

end.
-------------------------------------------------------------------

çift tek sayı bulma
var
sonuc,sayi:integer;
begin

sonuc:= sayi mod 2;
if sonuc = 0 then
showmessage ('çift')
else
showmessage ('tek');
end;