Question

Сделайте задание 3 пожалуйста.
Напишите именно программу.
Мне не нужны просто формулы.

Answer 1

===== PascalABC.NET =====

begin

 var ГодовойПроцент := 60.0;

 var СрокДепозитаМес := 3;

 var СуммаВклада := ReadReal('Сумма вклада, руб:');

 var ПроцентПоВкладу := ГодовойПроцент / 12 * СрокДепозитаМес;

 var СуммаПроцента := Round(СуммаВклада * ПроцентПоВкладу / 100, 2);

 var СуммаПоДепозиту := СуммаВклада + СуммаПроцента;

 Writeln('Сумма за ', СрокДепозитаМес,  ' мес: ', СуммаПоДепозиту:0:2);

 // теперь за 6 мес

 СуммаВклада := СуммаПоДепозиту;

 СуммаПроцента := Round(СуммаВклада * ПроцентПоВкладу / 100, 2);

 СуммаПоДепозиту := СуммаВклада + СуммаПроцента;

 // и за 9 мес

 СуммаВклада := СуммаПоДепозиту;

 СуммаПроцента := Round(СуммаВклада * ПроцентПоВкладу / 100, 2);

 СуммаПоДепозиту := СуммаВклада + СуммаПроцента;

 Writeln('Сумма за 9 мес: ', СуммаПоДепозиту:0:2);

end.