Question

помогите пожалуйста если не все хотя бы 3 номер, 4 ненадо

Answer 1

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.

Answer 2

а можете и остальное??? пожалуйста

Answer 3

А хотя бы спасибо сказать за решение?