Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит...

Question

Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит миллион? (Pascal)

Answer 1

Var s,p,sum:real; k:integer;
begin
write('s = '); readln(s);
write('p = ');readln(p);
k:=0;
sum:=s;
while sum<1000000 do<br> begin
 k:=k+1;
 sum:=sum*(100+p)/100;
 end;
writeln('k = ',k);
end.

Пример:
s = 400000
p = 10
k = 10