Выполнить в Pascal задание

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

Question

Информатика

Ксеня

18 декабря, 15:09

Выполнить в Pascal задание

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

+5

Ответы (1)

Знаете ответ на вопрос?

Аксён · 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.