Паскаль

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

в паскале, используя FOR

Question

Информатика

Паха

9 июля, 16:30

Паскаль

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

в паскале, используя FOR

+3

Ответы (1)

Знаете ответ?

Никон · 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.