Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Один бедный человек пришел к купцу и предложил заключить договор, по которому бедный будет платить каждое утро по 50.000 руб., а богатый заплатит в первый день 1 коп., во второй - 2коп., в третий - 4 коп. и далее каждый день будет давать вдвое больше прежнего. Договор заключен сроком на месяц (30 дней). Сколько получит каждый и на сколько больше получит бедняк.Программа паскаль, напишите пожалуйста.

более месяца назад
Просмотров : 21    Ответов : 1   

Лучший ответ:

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.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: