Введем обозначения А - 8 литров, Б - 5, В - 3
1) переливаем из А в Б, итого получим А=3, Б=5, В=0
2) переливаем из Б в В, итого получим А=3, Б=2, В=3
3) переливаем из В в А, итого получим А=6, Б=2, В=0
4) переливаем из Б в В, итого получим А=6, Б=0, В=2
5) переливаем из А в Б, итого получим А=1, Б=5, В=2
6) переливаем из Б в В, итого получим А=1, Б=4, В=3
7) переливаем из В в А, итого получим А=4, Б=4, В=0
153766₈=(заменяем каждую цифру на двоичную)
=001 101 011 111 110 110₂, первые два нуля не в счет. (не значащие)
Считаем, всего нулей 4.
Ответ: 4
сначала определяем к-во символов в каждой строке
1-1 2-3 3-7 4-15 5-31 6-63 7-127
7-я строка имеет 127 символов и состоит из символа G к которому слева добавлено
две 6-х строки, определяем номера начала и конца каждой строки
6(1-63) 6(64-126) G(127)
видим что нужные символы во 2-й 6-й строке
6-я строка состоит из символа F к которому слева добавлено
две 5-х строки, определяем номера начала и конца каждой строки
5(64-94) 5(95-125) F(126)
нужные символы во 2-й 5-й строке
5-я строка состоит из символа E к которому слева добавлено
две 4-х строки, определяем номера начала и конца каждой строки
4(95-109) 4(110-124) E(125)
и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней,
<span>AABAAB C(116) A(117) A(118) B(119) A(120) A(121) B(122) C(123) D(124)</span>
<span>таким образом нужные символы CAABAA</span>
алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
Информатика))))) P.S. если несложно, отметь мой ответ, как лучший)
