Студент зa лето заработал C РУб. Ежемесячная стипендия студента составляет А руб, расходы на проживание - В руб. (А<В). Рост цен ежемесячно увеличивает

расходы на проживание на 3%. Написать программу, определяющую, на сколько месяцев хватит денег. Задача в Паскале

Question

Информатика

Рина

12 января, 09:34

Студент зa лето заработал C РУб. Ежемесячная стипендия студента составляет А руб, расходы на проживание - В руб. (А<В). Рост цен ежемесячно увеличивает

расходы на проживание на 3%. Написать программу, определяющую, на сколько месяцев хватит денег. Задача в Паскале

+1

Ответы (1)

Знаете ответ на вопрос?

Юрьич · Answer 1

Var A, B, C : real;

time : integer;

begin

Writeln ('сколько заработал за лето') ;

readln (c) ;

Writeln ('стипендия = ') ;

readln (A) ;

Writeln ('расходы на проживание') ;

Readln (b) ;

C:=c+a-b;

while (c>=0) do begin

C:=c+a-b;

b:=b + (b/100*3) ;

time:=time+1;

end;

writeln ('денег хватит на ', time,' месяцев') ;

end.