Нужна программа на Паскале по этой задаче. Поле засеяли рожью и пшеницей на площади S1 и S2. Каждый год площадь ржи увеличивается на 25%, а площадь пшеницы увеличивается на 50%. Через сколько лет площадь ржи будет составлять ме...
Нужна программа на Паскале по этой задаче.
Поле засеяли рожью и пшеницей на площади S1 и S2. Каждый год площадь ржи увеличивается на 25%, а площадь пшеницы увеличивается на 50%. Через сколько лет площадь ржи будет составлять меньше 50% от площади пшеницы.
Гость
Ответ(ы) на вопрос:
Гость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
Гость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 , если не пойдёт поменяй знак
Не нашли ответ?
Похожие вопросы