Формула на Бейсике - VB
Формулировка задачи:
Помогите написать формулу на Байсике
Решение задачи: «Формула на Бейсике»
textual
Листинг программы
kol1=0 kol2=0 For i = 1 To 6 kol_C1=0 kol_C2=0 For j = 1 To 6 kol_C1=kol_C1+Z1(i, j) kol_C2=kol_C2+Z2(i, j) Next j if kol_C1>1 then kol1=kol1+1 if kol_C2>1 then kol2=kol2+1 Next i