PascalABC
Ввести начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад превысит 1 млн. рублей
Ответы
Ответ дал:
0
program raf105;
var
v,p: real;
i,let: integer;
begin
write('Вклад: ');
readln(v);
write('Процент годового дохода: ');
readln(p);
while v < 1000000 do
begin
let:= let+1;
v:= v+v/100*p;
end;
writeln('Вклад превысит 1 млн. через ',let,' лет');
end.
PascalABC 3.4.2
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад