alexeyTTT

Помогите с этой задачкой

Миниатюры

 

MoNeTa

CLS
INPUT "N1 ", n1
INPUT "N2 ", n2
DIM V(n1), W(n2)
FOR i = 1 TO n1
PRINT "V("; i; ")";
INPUT V(i)
D = V(i)
IF D < 0 THEN GOSUB 10
NEXT
s1 = s: k1 = k: s = 0: k = 0
FOR x = 1 TO n2
PRINT "W("; x; ")";
INPUT W(x)
D = W(x)
IF D < 0 THEN GOSUB 10
NEXT
s2 = s: k2 = k
PRINT "S1="; s1; "K1="; k1
PRINT "S2="; s2; "K2="; k2
Z = (EXP(s1) + EXP(s2)) / (k1 * k2)
PRINT "Z="; Z
END

10 k = k + 1
s = s + D
RETURN