Помогите пожалуйста составить циклический алгоритм решения задачи.
Определит сколько лет вклад должен находиться в банке, чтобы сумма вклада достигла или превысила 1000000 руб. При условии, что начальная сумма вклада составляет А рублей, и банк ежегодно начисляет 5 %.
Var t:integer;
b,a:real;
begin
write(Вклад равен );
read(a);
b:=1.05;
while a<1000000 do
begin
a:=a*b;
t:=t+1;
end;
write(Под процентами пролежавши ,t, лет вклад накопил ,a:12:4, рублей);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
