Задача на цикл

[mimit]

В некотором году (назовем его условно первым) на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность — на 2%. Определить: в каком году средняя урожайность превысит 22 центнера с гектара. Нужно решить с помощью цилка while и repeat

var g:integer;sr:real;
begin
sr:=20;
 g:=1;
 while sr>22 do
 begin
   inc(g);
   sr:=sr+0.4;
 end;
 writeln('g);
 readln;
end.

Вот пробую решить не получается помогите и с цилком repeat

[Mad_Cat]

var g:integer;sr:real;
begin
sr:=20;
 g:=1;
repeat
   inc(g);
   sr:=sr*1.02;// заметьте разницу
until sr>22;
 writeln(g); // и тут
 readln;
end.

[mimit]

Сообщение от Mad_Cat

var g:integer;sr:real;
begin
sr:=20;
 g:=1;
repeat
   inc(g);
   sr:=sr*1.02;// заметьте разницу
until sr>22;
 writeln(g); // и тут
 readln;
end.

А можно пояснить разницу между +0.4 и *1.02

[mimit]

Я для чего тогда тут дана "площадь участка увеличивалась на 5%" ? просто мне кажется задача с подвохом или я просто так думаю?

[Mad_Cat]

А можно пояснить разницу между +0.4 и *1.02

0.4 это 2% от 20
а у вас

величивалась .... средняя урожайность — на 2%.

т.е сначала 20+(2% от 20) потом 20.4 +(2% от 20.4) и т.д

тут дана "площадь участка увеличивалась на 5%"

да ахез! все без нее прекрасно решается