pascal入门题目,菜鸟需要帮忙

首先看这道题，如果每次把零件三等分就可以最快地找到较轻的。如第一次分为27，27，27三份。任意选俩份放到天平两侧，如果某个轻说明次品在那里，如果一边重说明次品在没称的那些里。以此类推。
所以这道题转化为每次将总零件数除以三，一共4次。程序表示如下：

var
a,b,i,j:integer;
begin
a:=81;b:=4;
writeln(a);
for i:=1 to 4 do
begin
a:=a div 3;
writeln(a);
end;
end.

这程序仅是示意作用，如果有什么具体的需要，再作修改就行了。

麻烦您再把题目描述得详细一点，其实这是一道数学题，不关Pascal什么事儿的，但既然涉及到它，就肯定有诸如输入数据、输出数据等等的格式规范啊之类的问题，一定要描述清楚。

一楼说得对，如果是数学题，按二楼的作法即可。

引用如下：
如第一次分为27，27，27三份。任意选俩份放到天平两侧，如果某个轻说明次品在那里，如果一边重说明次品在没称的那些里。以此类推。