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

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

Question

Информатика

Данилка

29 сентября, 03:34

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

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

+4

Ответы (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.