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.

Answer 2

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.

Answer 3

вот с While

Answer 4

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

Answer 5

да

Answer 6

:D