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

Question

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

---

Comments

Люди я люблю вас!!! Вы самые лучшие!!!

---

Sergif!!

---

Segrif

---

У тебя WA PE

---

Усе

---

Я поменял и стало 100

Answer 1

Var 
 n,m,k,l,p:extended;
 i:longint;
begin
 readln(n,p,m); 
 while n begin
   n:=n*(1+p/100); 
   inc(i); 
 end;
writeln(i);
readln;
end.

Comments

Чувак спасибо, хоть на 81,6 баллов, но все равно лучше чем 0, СС!

---

СПС*

---

))