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

Ответы:

Румия Ермоленко

30-03-2014 22:28

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Ульнара Кравченко

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

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!