Ответы и объяснения

2014-04-02T22:26:09+04:00
Пишу на QBasic
1)
CLS
INPUT A
INPUT R
S1=S*S
S2=PI*R*R
IF S1>S2 THEN
  PRINT "Площадь квадрата больше"
ELSE
  PRINT "Площадь круга больше"
END IF


2)
CLS
C=10
DIM A(7)
FOR I = 2 TO 7
C=C+4
K=K+C
IF C>20 THEN
PRINT "В" I "день было изготовлено больше 20 фигур"
END IF
NEXT I
PRINT "В воскресенье было изготовлено" C "фигур"
PRINT "В течении недели было подготовлено " K "фигур"
IF K>125 THEN
PRINT "Да, хватит"
ELSE
PRINT "Нет, не хватит"
END IF