Составить программу расчета числа загонов на пастбище по формуле К = П/Ч + О, где П – период, необходимый для отрастания травы на пастбище, дни; Ч – количество дней пастьбы скота в каждом загоне; О – потребное количество загонов для возобновления травостоя.Количество дней пастьбы скота в загоне изменяется от 1 до 5 дней с шагом 1 день — QBasic(Бейсик)

CLS
INPUT "vvedite p"; p
INPUT "vvedite o"; o
FOR c = 1 TO 5
    k = p / c + o
    IF k <> FIX(k) THEN k = FIX(k) + 1
    PRINT "k("; c; ")="; k
NEXT

Тестирование выполнено в программе QB64 ( Скачать )