Решите Пожалуйста!!! Желательно ** языке ПАСКАЛЬ!!

Question

Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!

---

Comments

Ну че?

---

n * 1.1 ^ (a - 1) >= x

---

Эмм, ща подумаю

---

агась

---

Ладно, вообще, проще решить через цикл

---

while repeat for ??

Answer 1

Var
 n,x,k: integer;
 d: real;
begin
 read(n, x);
 k := 1;
 d := n;
 while d < x do
   begin
   k := k + 1;
   d := d * 1.1
   end;
 write(k)
end.

Comments

У тебя WA PE , я пробую разобраться, но все таки помоги

---

аа

---

стойка, ща

---

Усе

---

100

---

Я поменял интеджер на лонгинт