Составить программу, которая вычисляет, через сколько лет удвоится вклад в банке, если начальная сумма S, процент годовых R.
В "PascalABC"
Ответы
Ответ дал:
0
var
s, r, k:real;
ans:integer;
begin
Read(s,r);
k:= s; ans:= 0;
While (k < 2 * s) do begin
ans:= ans + 1;
k:= k + k * (r/100);
end;
Writeln(ans);
end.
Примеры:
````````````````````
100 20
4
````````````````````
100 100
1
s, r, k:real;
ans:integer;
begin
Read(s,r);
k:= s; ans:= 0;
While (k < 2 * s) do begin
ans:= ans + 1;
k:= k + k * (r/100);
end;
Writeln(ans);
end.
Примеры:
````````````````````
100 20
4
````````````````````
100 100
1
Ответ дал:
0
Аригато! Извини, случайно отметил лучшим не твоё решение, но плагиатчицу зарепортил.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад