Через сколько лет сумма вклада превысит В рублей?

@1122334455 · Регистрация: 16.02.2015

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

1.Сделан вклад в банке в размере А рублей. Банк начисляет ежегодно доход в размере 7% от суммы, накопившейся на счете. Через сколько лет сумма вклада превысит В рублей? Для решения задачи была написана программа, но часть информации в ней затерлась. Восстановите программу.

Pascal

Program Vklad;   {S – накопленная сумма,   I – количество лет}
var S, I, A, B : _________ ; 
begin
readln(                   ); S:=______ ; I:= _______ ;
while  ________  do
  begin
     s:= _______________ ; I:= ______ ;
  end;
writeln(      );
end.

@Puporev · 16.02.2015, 19:23

Pascal

Program Vklad;   {S – накопленная сумма,   I – количество лет}
var A,B,S:real;
    I:integer;
begin
readln(A,B);
S:=A;
I:=0;
while S<=B do
  begin
    s:=s+0.07*s;
    I:=I+1;
  end;
writeln('I=',I,'  S=',S:0:2);
end.

@aex · 16.02.2015, 19:29

Pascal

Program Vklad;   {S – накопленная сумма,   I – количество лет}
var S, I, A, B : real; 
begin
readln(A,B); S:=A; I:=0;
while (S<=B) do
  begin
     S:=S+0.07*S; I:=I+1;
  end;
writeln(I);
end.

	16.02.2015, 19:29