На заводе по производству биотоплива выращивают биомассу, ежеднев но масса биомассы увеличивается на 30 %. 1 сентября масса составляла1.5 т. выведите на экран количество биомассы на заводе за неделю. резуль тат работы программы может выглядеть так: 1 сентября количество биомассы составляет 1.5 т2 сентября количество биомассы составляет 1. 95 т3 сентября количество биомассы составляет 2.535 т4 сентября количество биомассы составляет 3.2955 т
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.