сумма s рублей положена в сбербанк при этом ежегодный прирост составляет p процентов и считается непрерывным.Определить через сколько лет первоначальная цена увеличиться до n cуммы
Сделать в pascal abc
Сделать в pascal abc
More Questions From This User See All
Answers & Comments
program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
Язык PascalABC