Можно упростить выражение, полученное на схеме.
(¬A&B+A)&¬B = (A+B) & ¬B = A¬B+0 = A¬B
Var x,y,z:integer;
procedure p(var a,b,c:integer);
var t:integer;
begin
if a>b then
begin t:=a; a:=b; b:=t; end;
if b>c then
begin t:=b; b:=c; c:=t; end;
if a>b then
begin t:=a; a:=b; b:=t; end;
end;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
p(x,y,z);
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
Введите 3 числа:
8 5 2
x = 2 y = 5 z = 8
1) a:array[1..7] of integer = (25, 24, 10, 60, 4, 100, -11)
или (если без значений)
a:array[1..7] of integer
2) a[5] = 4
3) a[a[5]] = a[4] = 60
Отпадают все системы до 6 включительно. Предположим, что это система с основанием 7.
53*2=136
136=136
Следовательно исчисления велись в системе с основанием 7
3,6e+8
0,03038
0,00685
5,625
5,431004875