SOS-SOS!!!!! Решите пожалуйста!!!!! 11 класс - нужны хорошие оценки. Первая решена. Нужна...

Question

SOS-SOS!!!!! Решите пожалуйста!!!!! 11 класс - нужны хорошие оценки. Первая решена. Нужна 2.

---

---

Comments

Есть какой-либо ввод и откуда брать значение "концентрации бактерий"?

---

из первой задачи все цифры

---

beginvar i:integer;for i:= 1 to 7 doWriteln('1 День - ', (350.0+random(124)):0:0);end.

---

это все?

---

упс, Writeln(i,' День - ', (350.0+random(124)):0:0);

---

я не могу понять само задание, где брать концентрацию то?

---

ага, все, нашел, сейчас перепишу, если смогу

---

пожалуйста-пожалуйста!!

---

Блин, вас заставляют по инфе че то делать, у нас последние 4 года просто в телефон играют ;c найдешь косяк - напиши

Answer 1

Как то так
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var i:integer;
var ur1:=ReadReal('ur1 =');
var ur2:=ReadReal('ur2 =');
var p:=ReadReal('p = ');
for i:= 1 to 7 do
begin
Writeln(i,' День - ',ur1 - ur1*p/100:0:0);
ur1:=ur1 - ur1*p/100;
end;
end.

Comments

Спасибо. Очень помогли)

---

все работает. ура