В кассу положили 2000 рублей. Каждый месяц ** ИМЕЮЩУЮСЯ В КАССЕ СУММУ начисляют 1%. Через...

Question

В кассу положили 2000 рублей. Каждый месяц на ИМЕЮЩУЮСЯ В КАССЕ СУММУ начисляют 1%. Через сколько месяцев сумма достигнет 20 000 рублей?
Напишите программу на Pascal ABC.

Comments

var k,n,i,j:longint;begin k:=20000; While k<200000 do begin k:=k+(k div 100 *1); inc(i); end; writeln(i);end.

Answer 1

Var k,n,i,j:longint;
begin 
k:=20000; 
While k<200000 do <br>begin  k:=k+(k div 100 *1);  inc(i); end; 
writeln(i);
end.