Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>
Решение в прикрепленном файле в 3-х циклах, но работать эта программа будет медленнее,
если число N - простое.
1) Потому что каждый из них обладает преимуществами и недостатками
2) Действительно для решения данной задачи необходимо всего одно взвешивание Ход решения: Берём две любые монетки и взвешиваем их. Если они равны в весе, то Третья монетка фальшивая. Если Первая весит больше второй, то вторая фальшивая. Иначе Первая фальшивая.