Страницы 191-195 параграф 4 4 вопрос / задание 13, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

№14

Замена произведения сложением.

program Z_13_14_5;

var

  x, y, p, i: integer;

begin

  write('x,y>>');

  readln(x, y);

  p := 0;

  for i := 1 to y do

    p := p + x;

  writeln(x, ' * ', y, ' =', p)

end.

№15

Рост численности населения через 3 года.

program Z_13_15_5;

var

  i: integer;

  n, d: real;

begin

  n := 40000; d := 0.05;

  for i := 1 to 3 do

    n := n + n * d;

  writeln('Численность населения через 3 года > ', n)

end.

№16

Рост бактерий за 10 минут

program Z_13_16_5;

var

  n,i: integer;

begin

  n := 1;

  for i := 1 to 10 do

    n := n*2;

  writeln('Количество бактерий через 10 минут > ', n)

end.