Помогите с задачей, необходимо написать программу по данной блок схеме.программу ** языке...

Question

Помогите с задачей, необходимо написать программу по данной блок схеме.
программу на языке паскаль

---

---

Answer 1

Var a,b,c:real; k:integer;
begin
readln(a,b,c);
k:=1;
repeat
b:=b*2;
a:=a-b/2;
if a<=0 <br> then writeln('Чёрт разорён')
 else begin
      a:=a+c;
      b:=b-c;
      if b<=0 then writeln('Мужик разорён')<br>              else k:=k+1;
      end;
until (a<=0)or(b<=0);<br>writeln(k);
end.

Пример:
15 12 4
Чёрт разорён
2

Comments

А можно "детский" вопрос? Если на блок-схеме не было блока вывода приглашения writeln('a, b, c:'); откуда он появился у Вас?

Answer 2

Var
  a,b,c,k:integer;
begin
  Read(a,b,c);
  k:=1;
  repeat
    b:=2*b;
    a:=a-b div 2;
    if a<=0 then Writeln('Черт разорен')<br>    else
    begin
      a:=a+c;
      b:=b-c;
      if b<=0 then Writeln('Крестьянин разорен')<br>      else k:=k+1
    end
  until (a<=0) or (b<=0);<br>  Writeln(k)
end.