Question

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

Answer 1

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

Answer 2

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

Answer 3

СПС*

Answer 4

))