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

Question

Информатика

Глорибза

7 мая, 22:11

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

+5

Ответы (1)

Знаешь ответ?

Леонт · Answer 1

Var m1, m2, st, i:integer;

begin

m1:=0; m2:=0;

st:=1;

for i:=1 to 30 do

begin

m1:=m1+100;

m2:=m2+st;

st:=st*2;

end;

writeln ('Богатый: ', m1,' бедный: ', m2);

if m1
then writeln ('Выиграл богатый') else writeln ('Выиграл бедный');

end.

Результат:

Богатый: 3000 бедный: 1073741823

Выиграл богатый