Question

В банк положили конкретную сумму s под 3% годовых определить через сколько лет сумма превысит полтора s информатика

Answer 1

Var i: integer;
    s: real;
begin
  i:=0; s:=1;
  repeat
    i:=i+1;
    s:=s*1.03;
  until s>1.5;
  writeln('число лет = ',i);
end.