1) Нахождение эталона (детали которые весят одинаково)
сравниваем 2 детали. если они равны, то они эталоны, если не равны, то эталоны те что не взвешивались
2) сравниваем одну деталь из эталонной пары с деталью из нежталонной пары.
если равны, то искомая деталь, это та из неэталонной пары которая не взвешивалась
если не равны, то та деталь из неэталонной пары, которая взвешивалась
Например с помощью оператора if:
Неполное if {условие} then do {...}
Полное
if {условие} then do {...}
else do {в противном случае}
Program gt;
var s,x:real;
begin
x:=1;
while x<=99 do
begin
s:=s+x/(x+1);
x:=x+2;
end;
writeln(s:1:5);
end.
:1:5-это 5 цифр после запятой