|
procedure TForm2.Button1Click(Sender: TObject);
var
i, j, prima, jml: integer;
begin
jml := StrToInt(Edit2.Text);
ListBox1.Items.Clear;
For i := StrToInt(Edit1.Text)
to jml do
Begin
j := 0;
For prima := 1 to i do
Begin
If i mod prima = 0 Then
j := j + 1
End;
If j = 2 then
ListBox1.Items.Add(IntToStr(i));
End;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
end;
|
Menangkan Jutaan Rupiah dan Dapatkan Jackpot Hingga Puluhan Juta Dengan Bermain di www(.)SmsQQ(.)com
BalasHapusKelebihan dari Agen Judi Online SmsQQ :
-Situs Aman dan Terpercaya.
- Minimal Deposit Hanya Rp.10.000
- Proses Setor Dana & Tarik Dana Akan Diproses Dengan Cepat (Jika Tidak Ada Gangguan).
- Bonus Turnover 0.3%-0.5% (Disetiap Harinya)
- Bonus Refferal 20% (Seumur Hidup)
-Pelayanan Ramah dan Sopan.Customer Service Online 24 Jam.
- 4 Bank Lokal Tersedia : BCA-MANDIRI-BNI-BRI
8 Permainan Dalam 1 ID :
Poker - BandarQ - DominoQQ - Capsa Susun - AduQ - Sakong - Bandar Poker - Bandar66
Info Lebih Lanjut Hubungi Kami di :
BBM: 2AD05265
WA: +855968010699
Skype: smsqqcom@gmail.com