Question

Помогите пожалуйста нужна программа Паскаль вот задача (При каждом переходе через волшебный мост мужик, имеющий b рублей, удваивает эту сумму за счет капитала черта (а рублей), стерегущего этот мост, после чего он должен уплатить черту дань в размере с рублей. Процесс этот продолжается до полного разорения одного из участников.Сколько будет совершено переходов моста?). вот блок схема пожалуйста сроочноо

Answer 1

Var a, b, c:integer;
    k:integer;

begin
writeln('Vvedi kapital Cherta');
readln(a);
writeln('kapital muzhika');
readln(b);
writeln('Vvedi dan');
readln(c);
k:=1;
repeat
b:=b*2;
a:=trunc(a-b/2);
if a<=0 then writeln('Chert razoren') else
 begin
 a:=a+c;
 b:=b-c;
 end;
if b<=0 then writeln('Muzhik razoren') else k:=k+1;
until (a<=0) or (b<=0);
writeln(k);
end.