Помогите с информатикой, пожалуйста (( Допустим, вы получили наследство $1 000 000 и...

Question

Помогите с информатикой, пожалуйста (( Допустим, вы получили наследство $1 000 000 и хотите красиво пожить. После долгих раздумий вы решаете, что будете скромно жить на $1500 в месяц. Разработайте программу, которая посчитает, на сколько лет вам хватит наследства? Выделите все этапы решения этой задачи и опишите свои действия на каждом из них.

Answer 1

1) Нам нужно вычислить на сколько месяцев хватит наследства. Для этого нужно поделить 1 000 000 на 1500. Мы получим кол-во месяцев, на которое хватит денег

2) Так как в году 12 месяцев, мы должны поделить полученное кол-во месяцев на 12.

program inheritance;

var

money, per_month, years, month: real;   //объявим переменные

begin

money := 1000000;  

per_month := 1500;

month := money / per_month;  // посчитаем на сколько месяцев хватит наследства

years := month/12;   // посчитаем на сколько лет хватит наследства

writeln('Наследства хватит на ', years, ' лет');   // выведем данные на экран

end.

Если нужно округлить число, то в предпоследней строчке напишите "writeln('Наследства хватит на ', Round(years), ' лет');" (округление в большую сторону), либо "writeln('Наследства хватит на ', Int(years), ' лет');" (округление в меньшую сторону)

Comments

но вообще, можно решить задачу намного короче : program inheritance;beginwriteln('Наследства хватит на ', 1000000/1500/12 , ' лет'); end.