На заводе по производству биотоплива выращивают биомассу, Ежеднев
но масса биомассы увеличивается на 30 %. 1 сентября масса составляла
1.5 т. Выведите на экран количество биомассы на заводе за неделю. Резуль
тат работы программы может выглядеть так:
1 сентября количество биомассы составляет 1.5 т
2 сентября количество биомассы составляет 1. 95 т
3 сентября количество биомассы составляет 2.535 т
4 сентября количество биомассы составляет 3.2955 т
Answers & Comments
var i:integer;
b: real;
begin
b:=1.5;
for i:=1 to 7 do
begin
writeln(i,' сентября количество биомассы составляет ', b,' т');
b := b*1.3
end
end.