Через сколько лет вклад станет больше 100000?

@Ploshchansk1y · Регистрация: 18.01.2017

Author24 — интернет-сервис помощи студентам

Процентная ставка по вкладу – 15% годовых. Первоначальный вклад составляет n рублей. Через сколько лет он станет больше 100000?

@Alexandr212 · 21.02.2017, 20:04

В цикле с предусловием (while) прибавляешь каждый раз к n 15 процентов, пока n не станет больше 100000.

Добавлено через 3 минуты

Pascal

var
  n: real;
  i: integer;
 
begin
  readln(n);
  while (n < 100000)
  do 
  begin
    i += 1;
    n += N * 0.15;
  end;
  writeln('Вклад будет больше 100000 через ', i,' лет');
end.

@Puporev · 21.02.2017, 20:13

Pascal

var n,p:real;
    k:integer;
begin
write('Введите сумму начального вклада n=');
readln(n);
p:=1.15;
k:=0;
while n<=100000 do
 begin
  n:=n*p;
  k:=k+1;
 end;
write('k=',k,'  n=',n:0:2)
end.

Добавлено через 8 минут

Сообщение от Alexandr212

n += N * 0.15;

Так никогда ни копейки не получишь.

@Alexandr212 · 21.02.2017, 20:16

Почему же?
n*0,15 это 15 процентов, и их мы прибавляем к n.
Результат работы программы вашей и моей одинаков.

@Alexandr212 · 21.02.2017, 20:22

Puporev, Вот скриншоты:

@Cyborg Drone · 25.02.2017, 20:35

Оптимальнее

Pascal

10
11

    inc(i);
    n *= 1.15;

@Ploshchansk1y 0 / 0 / 0 Регистрация: 18.01.2017 Сообщений: 21
		1
	Через сколько лет вклад станет больше 100000? 21.02.2017, 19:54. Показов 967. Ответов 5 Метки нет (Все метки) Процентная ставка по вкладу – 15% годовых. Первоначальный вклад составляет n рублей. Через сколько лет он станет больше 100000? 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	21.02.2017, 20:16	4
	Почему же? n*0,15 это 15 процентов, и их мы прибавляем к n. Результат работы программы вашей и моей одинаков. 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	21.02.2017, 20:22	5
	Puporev, Вот скриншоты: Миниатюры 0

	25.02.2017, 20:35