Напишите код по этой схеме в паскале,пожалуйста)

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.

Результат:
11

Comments

Ты просто лучший!One love!Шкуру спас!