Помогите решить пожалуйста. Процентная ставка - 25% годовых. Первоначальный вклад составил А рублей. Выведите на экране через сколько лет вклад больше С рублей. Через паскаль )
Ответы
Ответ дал:
0
Var
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад