Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.