Найти ошибку в программе

@wingmik · Регистрация: 09.01.2014

Author24 — интернет-сервис помощи студентам

подскажите где ошибка:
друг попросил написать прогу на бейсике в универ, хз как там с синтаксисом

PureBasic

READ STUDENTS
TOTAL=0
FOR I=1 TO STUDENTS STEP 1
READ STEPENDIYA
TOTAL=TOTAL+STEPENDIYA
NEXT І
MID=TOTAL/STUDENTS
PRINT MID
END

@locm · 02.04.2014, 16:47

Не по теме:

Сообщение от wingmik

друг попросил написать прогу на бейсике в универ, хз как там с синтаксисом

Интересно как вы помогаете другу если в бейсике не разбираетесь?
Пусть друг найдет помощника, который понимает в этом, иначе сделаете ему "медвежью услугу".

@vodav · 02.04.2014, 18:15

Сообщение от wingmik

хз как там

со смыслом:

QBasic/QuickBASIC

INPUT "Enter Students: ",STUDENTS
TOTAL=0
FOR I=1 TO STUDENTS STEP 1
  INPUT "Stependiya: ", STEPENDIYA
  TOTAL=TOTAL+STEPENDIYA
NEXT І
mMID=TOTAL/STUDENTS
PRINT mMID
END

@locm
	02.04.2014, 16:47 #2
	Не по теме: Сообщение от wingmik друг попросил написать прогу на бейсике в универ, хз как там с синтаксисом Интересно как вы помогаете другу если в бейсике не разбираетесь? Пусть друг найдет помощника, который понимает в этом, иначе сделаете ему "медвежью услугу". 0

	02.04.2014, 18:15