Question

32 балла!!!
Задача по информатике рост ребёнка 120 см. каждый месяц увеличивается на 2%. какой будет рост ребенка через N месяцев введеной клавиатуры. решить через -Repeat; For;

Answer 1

Uses  CRT;
Var  n,i:integer;
var size,m:real;

begin
  size:=120.0
  m:=1.02

  ClrScr;
  readln(n);

  for i:=0 to n do
  begin
   size:=size*m;
  end;

  writeln('Children size: ', size);
end.