В день рождения внука бабушка открыла счет в банке на его имя и положила туда 1000 рублей. Банк увеличивал сумму на 4% в год. Каждый следующий День Рождения бабушка производила индексацию суммы по курсу инфляции (% инфляции рубля на 2018 год) и удваивала полученную сумму. В каком возрасте её внук станет миллионером? через паскаль максимальные баллы

program raf105;

var r,let:real;

begin

r:=1000;

while r < 1000000 do

begin

 r:= r+r/100*4*2;

 let:= let+1;

end;

writeln('В возрасте ',let,' лет её внук станет миллионером.');

end.

Программа написана на языке PascalABC.NET

Решение:program project;var f, x :real;beginf:=1000;while f<1000000 dobeginf:=f + f / 100 * 4 * 2;x:=x+1;end;writeIn('В возрасте ',x,' лет её внук станет миллионером.');end.PascalABC.NET