Nonton Liga Inggris dan Liga Italy streaming gak perlu berlangganan

kanalbola.com

situs nonton siaran langsung sepak bola liga italy dan inggris secara online dari koneksi internet speedy bro...

registrasi pake sms..... cuma 2000 perak seminggu (di potong pulsa sms)...

segera kunjungi bro situsnya....

cuma di kanalbola.com

dari pada sibuk-sibuk berlangganan tv kabel. klo cuma mo nonton live nya bola. hemat dan wonderful banget kan..

Jawaban Soal

Soal 1

dim i,j,s as integer

cls
print "Bilangan Prima 1 - 1000"

for i = 1 to 1000
s=0
for j = 1 to 1000
if i mod j = 0 then
s = s + 1
end if
next j
next i


Soal 2

dim i,n as integer
i=1
do while i <= 500
i = i + n
print i
n = n + 2
if i >= 500 then exit do
loop


soal 3

dim i,temp,n as integer

cls
i = 6

for n = 3 to 500
if n mod 2 <> 0 then
temp = temp + i
print i
if temp mod 2 <> 0 then
i = i + n
else
i = i - n
end if

if i > 100 then exit for
end if
next n


soal 4

dim z,x as integer

for x = 4 to 20
if x mod 2 <> 0 then
z = (5+2*x) / x
print z
end if
next x


soal 5

dim bil(20), max as integer
cls

print "Masukkan Sembarang Nilai"
print "========================"
print
max=0
for i = 1 to 20
print "Nilai ke-"; i ; ": " :input bil(i)
if max < bil(i) then max = bil(i)
next i

print
print "Nilai Terbesar Adalah : "; max



soal 6

dim bil(15),rata2,jlh as integer
cls
for i =1 to 15
print "Nilai ke-"; i; ":" ; input bil(i)
jlh = jlh + bil(i)
next i

rata2 = jlh / (i-1)
print "Nilai rata-rata adalah : "; rata2


soal 7

dim bil(20), min as integer
cls

print "Masukkan Sembarang Nilai"
print "========================"
print
max=0
for i = 1 to 12
print "Nilai ke-"; i ; ": " :input bil(i)
if min > bil(i) then min = bil(i)
next i

print
print "Nilai Terkecil Adalah : "; min