Цитата:
Сообщение от vana174
1. Размер первоначального банковского вклада генерируется случайным образом (100-5000). Размер процентной ставки от 1 до 4 процентов в месяц. Каждый месяц со счета снимают сумму в размере 2% от суммы предыдущего месяца. Верно ли, что через m месяцев сумма вклада превысит первоначальную в 2 раза?
|
1. Если у Вас Паскаль АВС, то формат данных поставьте Integer вместо Longint.
2. Если (тут неясная формулировка) ставка постоянная, а не меняется от месяца к месяцу, как это заложено в программе, то генерацию размера ставки вытащите из цикла и поставьте перед ним.
Код:
Var
Vkl,Vkl_new,stav,m,i:LongInt;
Begin
Randomize;
Vkl:=Random(4901)+100;
Writeln('Initial: ',Vkl);
Write('m= ');
Readln(m);
For i:=1 to m do
begin
Stav:=Random(4)+1;
Vkl_new:=Round(1.0*Vkl-0.02*Vkl+0.01*Vkl*Stav);
Vkl:=Vkl_new;
end;
Writeln('Final: ',Vkl);
Readln;
End.