Составить программу, которая вычисляет, через сколько лет удвоится вклад в банке, если начальная сумма S, процент годовых R.
В "PascalABC"
В "PascalABC"
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Vars, 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