Один бедный человек пришел к купцу и предложил заключить договор, по которому бедный будет платить каждое утро по 50.000 руб., а богатый заплатит в первый день 1 коп., во второй - 2коп., в третий - 4 коп. и далее каждый день бу...
Один бедный человек пришел к купцу и предложил заключить договор, по которому бедный будет платить каждое утро по 50.000 руб., а богатый заплатит в первый день 1 коп., во второй - 2коп., в третий - 4 коп. и далее каждый день будет давать вдвое больше прежнего. Договор заключен сроком на месяц (30 дней). Сколько получит каждый и на сколько больше получит бедняк.Программа паскаль, напишите пожалуйста.
Гость
Ответ(ы) на вопрос:
ГостьVAR
a, b, k: Real;
i: Integer;
BEGIN
for i := 1 to 30 do a := a + 50000;
k := 0.01;
for i := 1 to 30 do begin
b := b + k;
k := k*2; end;
Writeln('Богатый получит - ', a, ' руб.');
Writeln('Бедный получит - ', b, ' руб.');
Writeln('Разница - ',b - a, ' руб.');
END.
Не нашли ответ?
Похожие вопросы