program raf105;
var k,a,p,b,m,let:real;
begin
write('Площадь участка (га.): ');
readln(k);
write('Средняя урожайность с гектара (ц.): ');
readln(a);
write('Увеличение участка за год (% от площади): ');
readln(p);
write('Рост урожайности за год (% от урожайности): ');
readln(b);
write('Желаемый урожай (ц.): ');
readln(m);
while a < m do
begin
k+= (k/100*p);
a+= (a/100*b);
let+= 1;
end;
writeln;
writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');
writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');
end.
Язык PascalABC
Полноценное решение с формулами:
v0 = int(input("Введите начальную скорость движения: "))
v = int(input("Введите конечную скорость движения: "))
t = int(input("Введите время движения: "))
a = (v - v0) / t
s = v0 * t + (a * t**2)/ 2
print(s)
Объяснение:
Сверху записан ответ с применением формул, но можно решить рациональнее:
v0 = int(input("Введите начальную скорость движения: "))
v=int(input("Введите конечную скорость движения: "))
t=int(input("Введите время движения: "))
print(0.5*t*(v0 + v))
А если применить множественное присваивание, будет всего 2 строки кода:
v0,v,t = int(input("Введите начальную скорость движения: ")),int(input("Введите конечную скорость движения: ")),\
int(input("Введите время движения: "))
print(0.5*t*(v0 + v))
