Задача без массива

06.12.2011, 14:48. **Показов** 4878. **Ответов** 1

Author24 — интернет-сервис помощи студентам

в Паскале как сделать без массивов?
Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Составьте программу расчета необходимой суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить 10 месяцев, используя только эти деньги и стипендию.

@КонецСвета · 06.12.2011, 15:31

Pascal

uses crt;
var i: integer;
    A,B,RZ,SD: real;
begin
write('A=');
readln(A);
write('B=');
readln(B);
RZ:=0.03;
SD:=B-A;
for i:=2 to 10 do
    begin
    B:=B+(B*RZ);
    SD:=SD+(B-A);
    end;
writeln(SD:7:2);
end.

vesper182
		1
	Задача без массива 06.12.2011, 14:48. Показов 4878. Ответов 1 Метки нет (Все метки) в Паскале как сделать без массивов? Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Составьте программу расчета необходимой суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить 10 месяцев, используя только эти деньги и стипендию.

	06.12.2011, 15:31

Опции темы

Задача без массива

Решение