Составить программу в паскале вклад в банке пролежал n лет. процентная ставка составляет 10% в год с ежегодной капитализацией. насколько % увеличится вклад?
Вроде бы но я не силен в банках. program n_1; var a,X,e,f:real; N,b:integer; begin Writeln('ВВедите количество лет'); read(N); Writeln('ВВедите сумму которую положите'); read(b); X:=1+0.1; a:=b*exp(ln(X) * N); e:=b/100; f:=a/e; writeln(f,' ','процентов'); end.
program n_1;
var
a,X,e,f:real; N,b:integer;
begin
Writeln('ВВедите количество лет');
read(N);
Writeln('ВВедите сумму которую положите');
read(b);
X:=1+0.1;
a:=b*exp(ln(X) * N);
e:=b/100;
f:=a/e;
writeln(f,' ','процентов');
end.