Question

Известны результаты двух учеников на вступительных экзаменах(их 4). Проходной балл не ниже 17. Кто поступил? Задача на языке QBasic.

Answer 1

MS DOS QBasic 1.0

CLS
FOR i = 1 TO 2
   PRINT i; ":";
   INPUT a, b, c, d
   s = a + b + c + d
   IF s >= 17 THEN
      PRINT "Postupil"
   ELSE
      PRINT "Ne postupil"
   END IF
NEXT i

Пример
 1 :? 5,4,3,4
Ne postupil
 2 :? 4,5,4,5
Postupil