Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.Паскаль
Var s,x,sum:real; k:integer; begin write('s = '); readln(s); write('x = '); readln(x); sum:=s; k:=0; while sum<=2*s do begin k:=k+1; sum:=sum+sum*x/100; end; writeln('k = ',k); end.
Answers & Comments
Verified answer
Var s,x,sum:real; k:integer;begin
write('s = ');
readln(s);
write('x = ');
readln(x);
sum:=s; k:=0;
while sum<=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln('k = ',k);
end.
Пример:
s = 2000
x = 10
k = 8