Помогите срочно пожалуйста задача Паскаль: Предприятие в год выпустило 40000 изделий. За...

Question

Помогите срочно пожалуйста задача Паскаль: Предприятие в год выпустило 40000 изделий. За счет усовершенствования технологий процесса объем продукции в год увеличился на 5 %. Определить, через сколько лет объем продукции станет больше 45000 в год.

Answer 1

Program __;Var n:Byte;    a:Real;BEGIN  a:=40000;  n:=0;  Repeat    n:=n+1;    a:=1.05*a;  Until (a>45000);  Writeln(n);END.  

Comments

как то не красиво получилось

---

Program __;
Var n:Byte;
a:Real;
BEGIN
a:=40000;
n:=0;
Repeat
n:=n+1;
a:=1.05*a;
Until (a>45000);
Writeln(n);
END.

---

Спасибо огромное