-
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
-
ruby umarım kafanı taşla ezip zorla zütten
-
whatsapta kimsenin durumuna bakıyor musunuz
-
ufuk beni yanına al
-
gevur isviçrede faiz yokmuş
-
beynimiz taşaklarımızda olsaydı
-
jordi el nino polla ermenı miymis
-
iran israil savaşında kimi destekliyorsunuz
-
engelı maası almak ıcın ıncıde yazıyorum
-
ünide bı kız sarhoşken sırf sarhoş diye
-
sanayide kalfanın tekini işten kovdum
-
ikinci el krallarına şu anda ne oldu
-
cümlenin öncesine allah affetsin yazanlar
-
bu güvenlikçiler tam olarak ne işe yarıyor
-
19 06 2025 perşenbeye gitmeyen müşrikler
-
okuldaki en karizma 9 sınıfım
- / 1