Question

записать на алгоритмическом языке​

Answer 1

Ответ:

var i:integer; x:real;

begin

i:=1;

x:=10;

repeat

i:=i+1;

x:=x+0.1*x;

until x>=25;

writeln(i);

end.