[Kaf_Dağı]

Q Basic Alıştırma 2 sayı arası asallar




q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

5 CLS
6 A = 0
7 B = 0
10 FOR X = 2000 TO 3001
12 G = 0
15 Y = 0
20 Y = Y + 1
30 Z = X / Y
40 C = INT(Z)
50 IF Z = C THEN GOTO 52 ELSE GOTO 20
52 G = G + 1
70 IF Y <> X THEN GOTO 20
80 IF G = 2 THEN PRINT X; : A = A + 1: B = B + X
85 NEXT X
86 PRINT "BULUNAN ASAL SAYI ADEDI="; A
87 PRINT "ASAL SAYILARIN TOPLAMI ="; B
88 D = B / A
89 PRINT "ASAL SAYILARIN ORTALAMASI ="; D
90 END