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

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

Задать свой вопрос
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.
Амелия Войдер
Да ладно, я тоже :D
Альбина Филатова-Сычева
не пробывал только я писать в паскале на манер С++, типа "P+="
Тимур Зурнаджи
Это в PascalABC.NET, я .NET люблю, а в С++ не лезу, это же вселенский язык, авось галактику в BSoD переделаю нечаянно
Violetta Lagojde
На областной олимпиаде я понял, что не могу также просто написать на паскале то, ято на С пишется в 3 строки
Пашка Генке
Ты ещё на КуМИРе не работаел, друг... А PascalABC.net полностью цивильный, желая C всё равно роднее
Таисия Томазлыкарь
я тоже в 9)
Леха Очеретнюк
только вот мы не проходили trunc,что это?)
Ярослава Страупе
Округление дробного числа вниз) Ну либо отбрасывание дробной доли... Одна сОтОна:)
Zheka Glanskov
спасибо огромное!)
Лидия Арториджи
Обращайся)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт