первоначальный рост дерева 50 см. каждый месяц дерево вырастает на 10% от своего первоначального роста. какой рост будет у дерева через полгода. составить программу паскаль и если можно блок схему

2

Ответы и объяснения

2013-01-30T17:41:23+04:00

program test;
var growth: real; i:integer;
begin
   growth:=50;

   for i:=1 to 6 do
      growth:=growth+growth/100*10;

   writeln(growth:0:2, ' cm');
   readln;
end.

2013-01-30T18:01:14+04:00

Program pr;

uses crt;

Var i, x1:integer;

       x:real;

begin

Writeln('Введите первоначальный рост');

readln(x);

Writeln('Введите кол-во месяцев');

readln(x1);

for i := 1 to x1 do

begin

x := x+((x*10)/100);

end;

Writeln('Конечный рост =', x:8:3);

readln;

end.