Soru = Klavyeden girilen N sayısına kadar olan mükemmel sayıları listeleyen programı fonksiyonda yapınız.
(Örnek: 6=1.2.3=> 1+2+3=6)
Şekli :
Kodlar:
Function mukemmel(n:integer):integer;
var
i,j,sayi : integer;
begin
for i:=1 to n do
begin
sayi:=0;
for j:=1 to i-1 do
begin
if i mod j= 0 then
sayi:=sayi+j;
end;
if sayi=i then
form1.ListBox1.Items.Add(inttostr(sayi));
end;
end;
Procedure TForm1.Button1Click(Sender: TObject);
va
s:integer;
begin
form1.ListBox1.Items.Clear;
s:=strtoint(edit1.text);
mukemmel(s);
end;
Çalışma Şekli :
 
Programı çalıştırdıktan sonra bir sayı gireriz ve ‘Mükemmel Sayıları Listele’ butonuna tıkladığımızda yazdığımız değere kadar olan mükemmel sayıları listeleyeceklerdir.
|
