Var a,b,c,d:integer;
begin
randomize;
a:=random(990)+10;
writeln(a);
b:=a div 100;
c:=a mod 10 ;
writeln('Первое цифра числа - ',b);
a:=a div 10;
d:=a mod 10;
writeln('Вторая цифра числа - ',d);
writeln('Третья цифра числа - ',c);
writeln(b,c,d);
end.
1) Нахождение эталона (детали которые весят одинаково)
сравниваем 2 детали. если они равны, то они эталоны, если не равны, то эталоны те что не взвешивались
2) сравниваем одну деталь из эталонной пары с деталью из нежталонной пары.
если равны, то искомая деталь, это та из неэталонной пары которая не взвешивалась
если не равны, то та деталь из неэталонной пары, которая взвешивалась
Ответ: директория или каталог.