Выполнить в Pascal задание Вы служите в банке. К вам приходит клиент, который хочет...

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.

Comments

Сумма вклада, и ежемесячный процент вводятся с клавиатуры.

---

Я иммел ввиду также использовать Writeln

---

Что-бы было понятно что где вводить

---

Writeln -это процедура вывода. Её обычно используют по умолчанию.

---

Я понимаю вот и говорю например

---

WriteLn('Укажите ежемесячный процент') а затем ReadLn(s)

---

Вот так

---

Я не понимаю просто твои обозначения

---

Обновила.

---

Спасибо!