Question

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

Answer 1

Var n: integer;
var heigth: real;
begin 
  heigth := 120; 
  writeln('n = '); 
  readln(n); 
  for var i := 1 to n do   
    heigth := heigth * 1.02; 
  writeln('Heigth = ',heigth);  
end.

var n: integer;
var heigth: real;
begin 
  heigth := 120; 
  writeln('n = '); 
  readln(n); 
  repeat   
  begin     
    heigth := heigth * 1.02;     
    n := n - 1   
  end   
  until n = 0; 
  writeln('Heigth = ',heigth);  
end.