zadach428.BAS

{* Задача428 *}

REM basic

' Составить программу расчета нагрузки скота (голов) на 1 га пастбищ по формуле
' Где: У – урожай зеленой массы с 1 г пастбищ за период, ц;
' К – количество пастбищного корма на голову скота в сутки, ц;
' Д – продолжительность использования пастбища, дни.
' Урожай зеленой массы с 1 га пастбища изменяется в пределах от 120 до 160 с шагом 1 ц.


INPUT "vvedite k ", k
INPUT "vvedite d", d
PRINT "urojay         skot             urojay         skot"
For u = 120 To 160
skot = u / (k * d)
PRINT u, skot; "          ";
If u Mod 2  0 Then PRINT
Next
End