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

Question

Катуня

15 марта, 07:19

+5

Ответы (1)

Знаете ответ на вопрос?

Рогнеда · 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.