Составить блок-схему и написать программу Паскаль.
"Мужик и чёрт".
помогите, пожааалуйста!

1

Ответы и объяснения

2014-02-23T10:24:52+00:00
Var b,a,c,x:integer;
begin
writeln('Введите капитал мужика');
readln(b);
writeln('Введите капитал черта');
readln(a);
writeln('Введите дань');
readln(c);
x:=0;
repeat
b:=b*2;
b:=b-c;
a:=a-b;
a:=a+c;
x:=x+1;
until (b<0) or (c<0);
writeln(x);
end.
я закинул блок схему
большое спасибо