Напишите программы, использующие циклы While и Repeat, для решения следующей задачи. В первом году на участке площадью

Циклы While и Repeat

Объяснение: Для решения задачи используем циклы `While` и `Repeat`. Переменная `year` будет использоваться для подсчета количества лет. В начале решения присваиваем первоначальные значения переменным `area` и `yield`, соответствующие году 1. Затем, используя цикл `While`, проверяем условия для каждого пункта задачи и увеличиваем значение переменной `year` на 1 после каждого прохода цикла. Внутри цикла обновляем значения переменных `area` и `yield` в соответствии с условиями задачи.

Дополнительный материал:

year := 1;

area := 100;

yield := 20;



\\ a) Урожайность более 22 центнеров с гектара

While yield <= 22 do

begin

  yield := yield + yield * 0.02;  

  year := year + 1;

end;



\\ b) Площадь участка больше 120 гектар

While area <= 120 do

begin

  area := area + area * 0.05;  

  year := year + 1;

end;



\\ c) Общий урожай превышает 800 центнеров

total_yield := area * yield;

While total_yield <= 800 do

begin

  area := area + area * 0.05;  

  yield := yield + yield * 0.02;

  total_yield := area * yield;

  year := year + 1;

end;



writeln("a) Урожайность будет более 22 центнеров с гектара в ", year, " году");

writeln("b) Площадь участка будет больше 120 гектар в ", year, " году");

writeln("c) Общий урожай превысит 800 центнеров в ", year, " году");

Совет: Не забывайте обновлять значения переменных `area` и `yield` внутри цикла после каждого изменения. Это позволит вам получить правильные результаты. Кроме того, следите за структурой вашего кода и правильным использованием синтаксиса языка программирования.

Упражнение:
Напишите программу, используя циклы While и Repeat, для решения следующей задачи: В первый день спортсмен пробежал X километров. Каждый следующий день он увеличивал пробег на 10% от предыдущего дня. Определите, через сколько дней пробег спортсмена составит не менее Y километров. Выведите на экран это количество дней.