Помогите пожалуйста составить циклический алгоритм решения задачи.
Определит сколько лет вклад должен находиться в банке, чтобы сумма вклада достигла или превысила 1000000 руб. При условии, что начальная сумма вклада составляет А рублей, и банк ежегодно начисляет 5 %.
Ответ
Автор - TaTaPmember
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.