Журналист
Boazhpar 4 ноября 2019 в 05:04

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

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

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

Пример:
15 12 4
Чёрт разорён
2
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте