Question

. Составьте программу (на языке Turbo Pascal) для решения следующей экономической задачи.
В банк положена сумма 30 000 руб. под 18% годовых, и в течение 6 лет вкладчик не будет снимать деньги со счета. Какая сумма окажется на счете вкладчика через 6 лет.

Answer 1

Var
 SUM: real;
 P, T,i:integer;
begin
P:=18;
T:=6;
SUM:=30000;
for i:=1 to T do 
 SUM:=SUM+(SUM*P)/100;
writeln(SUM,' Руб');
end.