1 2 3 4 5 6 7 8 | INPUT " vvedite kol-vo studentov ", nFOR i = 1 TO n INPUT " vvedite ocherednoj resultat ", r INPUT "vvedite pol j/d ", a$ IF a$ = "j" THEN sj = sj + r: kj = kj + 1 ELSE sd = sd + r: kd = kd + 1NEXTPRINT "srednij rezultat junoshey="; sj / kjPRINT "srednij rezultat devushek="; sd / kd |
Тестирование выполнено в программе QB64 ( Скачать )