....................................................
Подсистема - колесо, рама , спицы, и т.д.
<span>Надсистема - дорога, гараж, улица, мир....</span>
7. Европейские реки кроме Нила
8. Марки автомобилей кроме Руслана
9. Камни кроме торфа
10. Средний род кроме кофе
Перевод из 8 в 16 проще всего выполнять через двоичную систему счисления.
765(8)=111 110 101(2) = 1 1111 0101(2) = 1F5(16)
<span>uses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:');
readln(a);
k:=1;
for i:=2 to 18 do
begin
readln(b);
k:=k + ord(b=a);
end;
write('Количество одинаковых в начале=',k);
readln
end.</span>