Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.