Вдень рождения внука бабушка открыла счет в банке на его имя и положила туда 1000 рублей. банк увеличивал сумму на 4% в год. каждый следующий день рождения бабушка производила индексацию суммы по курсу инфляции (% инфляции рубля на 2018 год) и удваивала полученную сумму. в каком возрасте её внук станет миллионером? через паскаль максимальные
GAFur1111
3
21.04.2019 11:31
0
Другие вопросы по теме Информатика
nkartalev
25.05.2020 13:55
mobidik77
05.08.2019 19:50
liana2015
05.05.2020 18:18
velvidreamp06xqq
05.05.2020 18:17
angelina1504
03.03.2019 20:30
scaier
03.03.2019 20:30
lfrybkrrf
15.01.2020 02:14
Пирожочек07
04.08.2019 08:00
janneellz
04.08.2019 08:00
Популярные вопросы
- Решить уравнения: (1+i)*z=1; z^2+4z+5=0...
1 - Сколько составлял по времени рабочий день рабочего в начале 20 века? в каком...
1 - Найдите объём цилиндра, если его r=3, h=2/√п...
2 - Метаналь это: а-газообразное вещество б-жидкое в-твердое?...
3 - Яей открываю свои все секреты но маму люблю я не только за это люблю свою...
3 - Надо поставить запятые и найти деепричастия. тест: волки медленно поднялись...
2 - А1=-3, а25=45 как получить разницу арифметической прогрессии...
1 - Рита и алиса собрал вместе 270 грибов.алиса собрала в 2 раза больше грибов...
2 - Ураган страшен (найдите ошибку) а) мощными волнами, обрушившимися на побережье...
3 - Формалин это раствор (35-40%) в воде: а-этаналя б-метаналя в- пентаналя?...
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
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