В банк был положен вклад в размере N рублей.Каждый месяц он увеличивался ** 1%.Определить...

Question

В банк был положен вклад в размере N рублей.Каждый месяц он увеличивался на 1%.Определить размер вклада через 5 лет

Answer 1

VAR
   n: Real;
   i, j: Byte;
BEGIN
   Read(n);
   
   for i := 1 to 5 do
      for j := 1 to 12 do
         n := n * 1.01;
   
   Write(n);
END.

Comments

lf

---

да

---

VAR
n: Real;
kol: Byte;
BEGIN
Read(n);
kol := 5 * 12;

while (kol > 0) do begin
n := n * 1.01;
kol := kol - 1;
end;

Write(n);
END.

---

вот с While

---

Так нужно было ?

---

да