8) 1 (т.к в скобках везде идет сложение)
9) 1 (т.к в конце, не в зависимости от результата плюсуем единицу)
10) Сначала делаем конъюкцию , потом дезъюнкицю, следовательно A*0 = 0, 1+0 = 1, ответ 1
. ............................
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('Черт разорен')
else
begin
a:=a+c;
b:=b-c;
if b<=0 then Writeln('Крестьянин разорен')
else k:=k+1
end
until (a<=0) or (b<=0);
Writeln(k)
end.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
Windows 7, Xp, 8, 10, vista, 95,3.1,1.0
Mac OS puma, jaguar, panther,tiger, leopard, snow leopard , Syrah
Linux не знаю