Нужна программа ** Паскале по этой задаче. Поле засеяли рожью и пшеницей ** площади S1 и...

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

Comments

Вопрос не на счёт этой задаче, прост интересно "inc" -что это ?

---

Задачи*

---

Это СТАНДАРТНАЯ ПРОЦЕДУРА языка, описанная еще его разработчиком Н.Виртом. Она увеличивает значение своего аргумента на единицу.

---

Спасибо

---

Пожалуйста. Inc - от английского "increase". Еще и Dec() есть...

---

Можешь помочь с подпрограммой

---

Через procedure

---

Вопросы, не относящиеся к данной задаче, пишите в Личных сообщениях.

Answer 2

Pascal abc
Program abc;
Var y0,y1,x:real;
I:integer;
Begin
I:=0;y0:=x;y1:=x;
Repeat
y0:=y0+y0*0.5;
y1:=y1+y1*0.25;
I:=I+1;
until y0*0.5=y1;
Writeln(I);
End.
Крч если я где то забыл и не поставил ";" Паскаль скажет, и насчёт until y*0.5"="y1 , если не пойдёт поменяй знак