profile
Опубликовано 5 лет назад по предмету Информатика от lovare1997

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

  1. Ответ
    Ответ дан HRAshton
    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.
    1. Ответ
      Ответ дан lovare1997
      спасибо огромное!)
    2. Ответ
      Ответ дан HRAshton
      Обращайся)
Самые новые вопросы