№ 1
Составить программу расчета уровня внесения органических удобрений (т), необходимого для восстановления потерь гумуса, по формуле:
Увн = ∆Сг ∙ Нв ∙ S ,
где ∆Сг − потери гумуса на 1 га, т; Нв − норма внесения в почву навоза для компенсации потерь 1 т гумуса, т; S − площадь сельскохозяйственных угодий с пониженным плодородием, га.
Площадь сельскохозяйственных угодий с пониженным плодородием изменяется в пределах от 1200 до 2500 га с шагом 100 га (∆Сг = 8,7 т, Нв = 5 т).

РЕШЕНИЕ:

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

10 PRINT "РАСЧЕТ УРОВНЯ ВНЕСЕНИЯ ОРГАНИЧЕСКИХ УДОБРЕНИЙ"
20 LET С=8.7
25 LET H=5
30 LET S=1200
40 LET Y=C*H*S
50 PRINT S,Y
60 LET S=S+100
70 IF S<=2500 GOTO 40
80 END

При использовании операторов цикла программа принимает вид:

10 PRINT " РАСЧЕТ УРОВНЯ ВНЕСЕНИЯ ОРГАНИЧЕСКИХ УДОБРЕНИЙ "
20 LET С=8.7
25 LET H=5
30 FOR S=1200 TO 2500 STEP 100
40 LET Y=C*H*S
50 PRINT S,Y
60 NEXT S
70 END