Question

Нужна программа на Паскале по этой задаче. Поле засеяли рожью и пшеницей на площади S1 и S2. Каждый год площадь ржи увеличивается на 25%, а площадь пшеницы увеличивается на 50%. Через сколько лет площадь ржи будет составлять меньше 50% от площади пшеницы.

Answer 1

Var
  s1,s2:real;
  y:integer;
begin
  Write('Введите площади под рожь и пшеницу: ');
  Read(s1,s2);
  y:=0;
  while s1>=0.5*s2 do begin
    s1:=1.25*s1;
    s2:=1.5*s2;
    Inc(y)
    end;
  Writeln('Количество лет, через которые площадь под рожь');
  Writeln('станет вдвое меньше, чем под пшеницу, равно ',y)
end.

Пример решения
Введите площади под рожь и пшеницу: 1520 940
Количество лет, через которые площадь под рожь
станет вдвое меньше, чем под пшеницу, равно 7

Answer 2

Программа на Паскале для решения этой задачи может выглядеть примерно так:

program SowingField;
var
  S1, S2: real;
  years: integer;
begin
  writeln('Введите площадь засеянную рожью (S1): ');
  readln(S1);
  writeln('Введите площадь засеянную пшеницей (S2): ');
  readln(S2);
  
  years := 0;
  while S1 >= 0.5 * S2 do
  begin
    S1 := S1 * 1.25; // увеличение площади ржи на 25%
    S2 := S2 * 1.5; // увеличение площади пшеницы на 50%
    years := years + 1;
  end;
  
  writeln('Через ', years, ' лет площадь ржи будет составлять менее 50% от площади пшеницы.');
end.

Эта программа сначала запрашивает у пользователя площади засеянную рожью (S1) и пшеницей (S2). Затем она использует цикл while для того, чтобы увеличивать площадь ржи и пшеницы на 25% и 50% соответственно, пока площадь ржи не станет меньше 50% от площади пшеницы. Когда это произойдет, программа выводит количество лет, через которое это произойдет.