Задача с элементами геометрической прогрессии - PascalABC.NET
Формулировка задачи:
Здравствуйте! Дана вот такая вот задача:
Один миллионер договорился с незнакомцем о выгодном деле: незнакомец будет приносить по 1 сотни тыс. рублей в течение месяца (30 дней), а миллионер должен заплатить в первый день всего 1 копейку, во второй – 2 копейки, в третий – 4 копейки и т.д. в каждый следующий день в два раза больше, чем в предыдущий. Вопрос: насколько обогатится миллионер от этой выгодной сделки?
Прошу помочь с решением на Pascal, буду очень благодарен.
Решение задачи: «Задача с элементами геометрической прогрессии»
textual
Листинг программы
var a,b,i:integer;
begin
a:=30*100000;
b:=1;
for i:=1 to 29 do
b:=b+round(power(2,i));
writeln('a=',a);
writeln('b=',b);
if a>b then writeln('Миллионер обогатился на ',a-b,' руб.')
else if a<b then writeln('Миллионер потерял ',b-a,' руб.')
else write('Суммы прибыли и выплат равны')
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д