2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно
Var
pr, num: Integer;
begin
<span>WriteLn('Введите число: ');
ReadLn(num);
</span>pr := 1;
while num > 0 do begin
pr := pr * (num mod 10);
num := num div 10;
<span>end;
</span><span>WriteLn('Произведение чисел = ', pr);
<span>ReadLn
end.</span></span>
<span>Это красивый,и ровный стол.
У этой тумбы острые края.
Этот треугольник острый.
У этого предмета яркий образ.
Эта машина быстро едет.</span>
program raf105;
var a,i:integer;
begin
for i:=50 to 70 do
begin
if ((i mod 2)=0) and ((i mod 4)<>0)
then a:= a+1;
end;
writeln('Вывод: ',a);
end.
<em>Язык программирования PascalABC</em>
Ось, відкрий та подивись картинку(сам робив)))))