Переводим X и Y в двоичную систему - это все же два числа, а не четыре, как если бы из двоичной переводить Z. Цифры шестнадцатиричного X расписываем по двоичным тетрадам, а восьмеричного Y - по триадам. X = B7₁₆ = 1011 0111₂ = 10110111 Y = 271₈ = 010 111 001₂ = 10111001 Требуется найти Z, которое находится между X и Y. Запишем в столбик, выравняв по младшему разряду, сначала X, потом варианты Z и в конце Y. То, что не будет попадать в интервал между числами в первой и последней строках, потом вычеркнем. 10110111 10111001 - равно нижнему, вычеркнем 10011000 - меньше верхнего, вычеркнем 10111000 - подходит - это ответ 10110111 - равно верхнему, вычеркнем 10111001
X = B7₁₆ = 1011 0111₂ = 10110111
Y = 271₈ = 010 111 001₂ = 10111001
Требуется найти Z, которое находится между X и Y.
Запишем в столбик, выравняв по младшему разряду, сначала X, потом варианты Z и в конце Y. То, что не будет попадать в интервал между числами в первой и последней строках, потом вычеркнем.
10110111
10111001 - равно нижнему, вычеркнем
10011000 - меньше верхнего, вычеркнем
10111000 - подходит - это ответ
10110111 - равно верхнему, вычеркнем
10111001
ответ: 3) 10111000₂
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.