Напишите задачу на языке паскаль.

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

Question

Информатика

Маша

12 сентября, 08:48

Напишите задачу на языке паскаль.

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

+3

Ответы (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 then writeln ('Богач отдал больше') else writeln ('Бедный отдал больше') ;

end.