В первый год с яблони сняли 3 кг яблок каждый следующий урожай повышались ** 20% когда с...

Question

В первый год с яблони сняли 3 кг яблок каждый следующий урожай повышались на 20% когда с яблони снимут более 25 кг яблок паскаль

Answer 1

var a, i: integer;

begin a:=3;

         i:=1;

         while a

         begin a:=a*1,2;

                  i:=i+1;

         end;

         writeln('на', i, 'год');

end.