Студент зa лето заработал C РУб. Ежемесячная стипендия студента составляет А руб, расходы на проживание - В руб. (А<В). Рост цен ежемесячно увеличивает
расходы на проживание на 3%. Написать программу, определяющую, на сколько месяцев хватит денег. Задача в Паскале

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.