Варыпаев
6 год назад
Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.Паскаль
ОТВЕТЫ
Бошняк
Jul 2, 2019
Var s,x,sum:real; k:integer;
begin
write(s = );
readln(s);
write(x = );
readln(x);
sum:=s; k:=0;
while sumlt;=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln(k = ,k);
end.
Пример:
s = 2000
x = 10
k = 8
begin
write(s = );
readln(s);
write(x = );
readln(x);
sum:=s; k:=0;
while sumlt;=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln(k = ,k);
end.
Пример:
s = 2000
x = 10
k = 8
102
Смежные вопросы:
