Question

Выполнить в Pascal задание
Вы служите в банке. К вам приходит клиент, который хочет вложить некоторую сумму (в рублях). И клиент просит вас посчитать, через сколько лет и месяцев сумма вклада удвоится, при условии ежемесячного начисления процентов на сумму, находящуюся на счете. Помогите клиенту. Сумма вклада, и ежемесячный процент вводятся с клавиатуры.

Answer 1

Var s,p,k,proc,sproc:real;
ty,tm:integer;
begin;
writeln('Сумма:');
readln(s);
writeln('Ставка:');
readln(p);
k:=s;
repeat
proc:=k/100*p;
k:=k+proc;
sproc:=sproc+proc;
inc(tm);
until k>=s*2;
while tm>11 do
begin;
 tm:=tm-12;
 inc(ty);
end;
writeln('Years:',ty,' Mounths:',tm,' Сумма процентов:',sproc);
end.