ПаскальРассчитайте плотность популяции белок за 1, 2, 3, …, 12 лет, если их...

Question

Паскаль
Рассчитайте плотность популяции белок за 1, 2, 3, …, 12 лет, если их первоначальная численность составила 552 особи на 1400 км2, ежегодный прирост составляет 20%
в паскале,используя FOR

Answer 1

var
  n, i, P: integer;

begin
  P := 552;
  for i := 0 to 12 do
  begin
    writeln(String.Format('{0} лет - {1} бел. / 1400 км2', i, P));
    P += trunc(P * 0.2);
  end;
end.

Comments

Да ладно, я тоже :D

---

не пробывал только я писать в паскале на манер С++, типа "P+="

---

Это в PascalABC.NET, я .NET люблю, а в С++ не лезу, это же вселенский язык, авось галактику в BSoD переделаю случайно

---

На областной олимпиаде я понял, что не могу также просто написать на паскале то, ято на С пишется в 3 строчки

---

Ты ещё на КуМИРе не работаел, друг... А PascalABC.net вполне цивильный, хотя C# всё равно роднее

---

я тоже в 9)

---

только вот мы не проходили trunc,что это?)

---

Округление дробного числа вниз) Ну или отбрасывание дробной части... Одна сОтОна:)

---

спасибо огромное!)

---

Обращайся)