Question

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

Answer 1

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

Answer 2

Решение:

program project;

var f, x :real;

begin

f:=1000;

while f<1000000 do

begin

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

x:=x+1;

end;

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

end.
PascalABC.NET