Помогите пожалуйста если не все хотя бы 3 номер, 4 ненадо
Var x:real; i:integer; begin i:=1; x:=10; repeat i:=i+1; x:=x+ 0.1*x; until x>=25; writeln(i); end.
а можете и остальное??? пожалуйста
А хотя бы спасибо сказать за решение?