 |
На сайте: |
 |
|
|
 |
Проценты
|
 |
| |
Дана сумма денег n и годовой процент -p. Узнать через сколько лет сумма удвоится.
var n,p,i,y:real;
k:integer;
BEGIN
k:=0; i:=0;
readln(n,p);
y:=n*2;
while n i:=n*p/100;
n:=n+i;
k:=k+1;
end;
writeln('K= ',k, 'n= ',n:0:3);
readln;
END.
<< Назад
|
|
|
 |
Добавленно:
06.08.04 Автор: Аня
 | | |
