Вдень рождения внука бабушка открыла счет в банке на его имя и положила туда 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;
begin
f:=1000;
while f<1000000 do
begin
f:=f + f / 100 * 4 * 2;
x:=x+1;
end;
writeIn('В возрасте ',x,' лет её внук станет миллионером.');
end.
PascalABC.NET