Помогите пожалуйста нужна программа Паскаль вот задача (При каждом переходе через...

Question

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

---

Comments

Значения ромбиков и прочего переведи в сиволы Pascal, так например ромбик-это оператор if!)))

---

пробовала ни в какую я просто не умею

---

:(

---

ооо

---

помогиииии умоляю

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<br> begin
 a:=a+c;
 b:=b-c;
 end;
if b<=0 then writeln('Muzhik razoren') else k:=k+1;<br>until (a<=0) or (b<=0);<br>writeln(k);
end.

Comments

можно побольше входных данных?

---

неа

---

с твоими входными данными, которые ты мне скинула, у меня получается 4

---

почему у меня не нолучается?

---

ты на Free Pascal проверяешь?

---

паскаль а б с

---

попробуй перед тем как компилировать сохранится

---

ты понимаешь половину слов которых ты мне прислал мы их не проходили и не работали с ними и поэтому я даже приблизительного претставления не имею о том о чем ты говоришь

---

хорошо, перед тем как запустить программу сохрани ее