-
1.
+4public class form1
sub checkprime(byval a as integer, byref p as boolean)
dim k as integer
p = true
for k = 2 to a - 1
if a mod k = 0 then p = false
next
if a = 0 or a = 1 then p = false
end sub
private sub button1_click(byval sender as system. object, byval e as system. eventargs) handles button1.click
dim arr(), n, i, counter as integer
dim prime as boolean
randomize()
n = inputbox("enter array size") - 1
redim arr(n)
for i = 0 to ubound(arr)
arr(i) = i
next i
for i = 0 to ubound(arr)
checkprime(arr(i), prime)
if prime then
textbox1.text = textbox1.text & arr(i) & vbtab
counter += 1
end if
next i
textbox1.text = textbox1.text & vbcrlf & "there are " & counter & " prime numbers" & vbtab
end sub
end class
al panpa -
2.
+1printf("Hello world");
ben bu kadar biliyom panpa kusura bakma -
3.
+1fibonacci ne lan prison break terk
-
4.
+1yakaladım seni o.ç ver kağıdını sıfır
-
5.
+1p = true
for k = 2 to a - 1
if a mod k = 0 then p = false
next
if a = 0 or a = 1 then p = false
end sub -
6.
0visual basic terk
-
7.
0uppp yardım taşşak geçmeyin amk zor durumdayım diorm ya
-
8.
0c^# () 1-20 from "fibonacchi"
sum product
al bakalım koçluk... -
9.
0hay gibeyim kimse yardım etmiyor sokayım am züt memenize yaa
-
10.
0up up up up up yardımmm
-
11.
0i sayi dizisinin ilk 20 teriminin hesaplayıp arrayliste atan ve tek numaralı terimleri toplayıp çift numaralı terimleri listeleyen programı yazınız.
edit: c# beyler aceleden yazamamışm yardım edin
microsoft visiual basic programı ile panpalar lütfen -
12.
0up up up up
-
13.
0upp kimesde yok mu ya panpalar son 15 dk lütfen ya
-
14.
0upppppppp
-
15.
0upupupup
-
16.
0up uppp upppppppppp
-
17.
0huur cocugu sen okuyorsun bu dersi senin yapman lazım yapamazsan nabak amk.. tek bi tak anlamadım anlasam yardımcı olurdum amk
neyse güncelleyek panpamıza bi yardim olsun buda
gibtigimin malı -
18.
03 lan 3 yarram ne var bunu yapamayacak amk
-
19.
0fibonacci kanadada amk 345 no hamilton sokak
-
20.
0kopta çekme oçe
-
ccc rammstein ccc günaydın diler 22 12 2024
-
bakıp bakıp gülersiniz diye
-
kirk bitti mi bu akşam
-
webcam taklu anal ferresi izledim
-
memati kim şımartı sözlüktekilere sövüyor
-
beyler p0rn0 film bağımlısıyım
-
sözlüğü en son 2017 de
-
melek dayı neden sürekli şukulanmak istiyorsun
-
geyy öldürmekk
-
doğru buluyor ve onaylıyorum
-
memati seni sevmiyorum ama abin olarak uyarı
-
memati mod olsun kampanyası
-
suriye hükümeti ypgyi dehleyecek
-
soğuk 1 kış cumarte sisi ve 49 üye
-
kayranın femboylarla ne alıp veremediği var
-
indregannick ve kamyoncukamil ilişkisii
-
20 yaşındayım elimlen beraber olmaktan sıkıldım
-
gelecekteki kariniz banyoda agliyor
-
bayan pamir 3 5 foto at yolumuzu bulalım
-
beyler endonezyalı bir kızla evleneyim mi
-
acaba sözlükteki herkes
-
beyler amerika nın hangi eyaletinde
-
herkes en sevdiği üç yemeği yazıyor
-
nostaji arşivim
-
her kadının içinde biraz vardır
-
şimdi biz gene de pkk demeyelim
-
bayan pamir
-
hala burası ezik insanlarla dolu
-
kürde savaş düğündür
- / 1