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