Решите в Pascal! СРОЧНО! Какую начальную сумму надо положить в банк, чтобы через 50 лет...

Question

Решите в Pascal! СРОЧНО!
Какую начальную сумму надо положить в банк, чтобы через 50 лет на счёту было 1.000.000 $, если процентная ставка 5 % в год.

Comments

Это можно и на листочку решить

---

Ещё надо?

---

да

---

А не забей я уже решил

---

Мне посто интерестно есть ли какие-то данные для ввода

---

Какие?

---

Забиваешь процент

---

и начальную сумму

---

и считаешь

---

А ок

Answer 1

 var k,p,d:real;i:integer;begin
 write('Write kol:');readln(k);
 write('Write percent:');readln(p);
 for i:=1 to 50 do
  d:=k/(1+(p/100)*i);
 writeln(d:0:2);
end.

Код может быть неточен так как нет данных для проверки.