Задача на циклы. составить программу в паскале!!! СРОЧНО!!!3. Однажды умный бедняк попросил у скупого богача приюта на две недели, причем сказал: «За это я заплачу тебе в первый день 1 рубль, во второй - 2, в третий -3 и т.д., но ты будешь мне подавать милостыню: в первый день 1 копейку, во второй -2, в третий-4 и т.д. увеличивая милостыню каждый день вдвое». Богач с радостью согласился. Сколько барыша принесла эта сделка богачу?

Question

задача на циклы. составить программу в паскале!!! СРОЧНО!!!3. Однажды умный бедняк попросил у скупого богача приюта на две недели, причем сказал: «За это я заплачу тебе в первый день 1 рубль, во второй - 2, в третий -3 и т.д., но ты будешь мне подавать милостыню: в первый день 1 копейку, во второй -2, в третий-4 и т.д. увеличивая милостыню каждый день вдвое». Богач с радостью согласился. Сколько барыша принесла эта сделка богачу?

whadrelro134 · Answer

program zadanie;var i, n: integer; bednyak, bogaty: real;begin bednyak:=0; bogaty:=1; n:=1; for i:=1 to 14 do begin bednyak:=bednyak+1; bogaty:=bogaty+n; n:=n*2; end; bogaty:=bogaty/100; writeln('Заплатил бедняк богачу (рублей): ', bednyak); writeln('Заплатил богач бедняку (рублей): ', bogaty); writeln('Ответ: Богач заплатил бедняку на ', bogaty, ' рублей больше');end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?