Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит миллион? (Pascal)
Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит миллион? (Pascal)
Гость
Ответ(ы) на вопрос:
Гостьvar s,p,sum:real; k:integer;
begin
write('s = '); readln(s);
write('p = ');readln(p);
k:=0;
sum:=s;
while sum<1000000 do
begin
k:=k+1;
sum:=sum*(100+p)/100;
end;
writeln('k = ',k);
end.
Пример:
s = 400000
p = 10
k = 10
Не нашли ответ?
Похожие вопросы