Напишите задачу на языке паскаль. бедный и богатый заключили спор. Богач отдает каждый день 100 рублей в течение месяца. Бедный отдает в первый день копейку каждый следующий день в 2 раза больше. в течение месяца, кто победит спор?

Question

Никита Максимов

Информатика

9 февраля, 10:11

Напишите задачу на языке паскаль. бедный и богатый заключили спор. Богач отдает каждый день 100 рублей в течение месяца. Бедный отдает в первый день копейку каждый следующий день в 2 раза больше. в течение месяца, кто победит спор?

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Всеволод Бородин · Answer 1

Var a, b:real; i, d:integer; begin a:=0; b:=0; d:=1; for i:=1 to 30 do begin a:=a+100; b:=b+d; d:=d*2; end; b:=b/100; if a>b else writeln ('Бедный отдал больше'); end.