ОЧЕНЬ PaskalABCNET ! нужно составить 2 программы:
а)На заводе по производству биотоплива выращивают биомассу. Ежедневно масса биомассы увеличивается на 30%. 1 сентября масса составляла 1.5 т. Выведите на экран количество биомассы на заводе за неделю. Результат работы программы может выглядеть так:
1 сентября количество биомассы составляет 1.5 т
2 сентября количество биомассы составляет 1.95 т
3 сентября количество биомассы составляет 2.535 т
4 сентября количество биомассы составляет 3.2955 т
б)Ежедневно каждый болеющий гриппом человек может заразить 3 окружающих. Выведите на экран максимальное количество заболевших в течение 5 дней. Результат работы программы может выглядеть как :
в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
...
выполнять программы с использованием цикла с параметром (for var ... to... do)
а) Программа для расчета количества биомассы на заводе каждый день:
```pascal
program BiomassCalculation;
var
biomass: real; // текущая масса биомассы
day: integer; // номер текущего дня
begin
biomass := 1.5; // масса биомассы 1 сентября
writeln('1 сентября количество биомассы составляет ', biomass:0:3, ' т');
for day := 2 to 7 do
begin
biomass := biomass * 1.3; // увеличение массы биомассы на 30%
writeln(day, ' сентября количество биомассы составляет ', biomass:0:3, ' т');
end;
end.
```
В этой программе мы используем цикл `for`, который повторяется 6 раз -- от второго до седьмого дня сентября. Переменная `biomass` хранит текущую массу биомассы, которая изначально равна 1.5 тоннам. На каждой итерации цикла мы увеличиваем массу биомассы на 30% с помощью операции `biomass := biomass * 1.3`, а затем выводим текущую массу на экран с использованием `writeln`.
б) Программа для расчета максимального количества заболевших в течение 5 дней:
```pascal
program InfectionCalculation;
var
infected: integer; // количество заболевших
day: integer; // номер текущего дня
begin
infected := 1; // количество заболевших в первый день
writeln('в 1 день количество заболевших составляет ', infected, ' чел');
for day := 2 to 5 do
begin
infected := infected * 3; // каждый заболевший заражает 3 окружающих
writeln('в ', day, ' день количество заболевших составляет ', infected, ' чел');
end;
end.
```
В этой программе мы также используем цикл `for`, который повторяется 4 раза -- от второго до пятого дня. Переменная `infected` хранит текущее количество заболевших, которое изначально равно 1 человеку. На каждой итерации цикла мы увеличиваем количество заболевших, умножая текущее значение на 3 с помощью операции `infected := infected * 3`, а затем выводим текущее количество на экран с использованием `writeln`.
Обе программы решают задачу, используя цикл `for` и выводят промежуточные результаты на экран, чтобы было понятно, как меняется количество биомассы и количество заболевших со временем.