Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: а) прирост суммы вклада за первый, второй, ..., десятый месяц; б) сумму вклада через т...
Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: а) прирост суммы вклада за первый, второй, ..., десятый месяц; б) сумму вклада через три, четыре, ..., двенадцать месяцев.
на паскале напишите пожалуйста. очень срочно♥
Гость
Ответ(ы) на вопрос:
Гостьvar d: integer;
r,s:real;
begin
r:=1000;
for d:=1 to 12 do
begin
r:=r+r*(2/100);
r := r*100;
r := round(r);
r := r/100;
s:=r*(2/100);
s := s*100;
s := round(s);
s := s/100;
writeln('Сумма вклада через ',d, ' месяц = ', r, ' руб','. Прирост в следующем месяце ', s, ' руб');
end;
end.
Не нашли ответ?
Похожие вопросы