На взять и две монеты положить на весы ( любые) дальше 2 варианта: либо две монеты равны в весе, тогда фальшивая третья, либо одна будет легче и она будет фальшивой
1) чтобы точно вынуть черный, нужно вынуть 6 шаров, т.к. первые 5 могут оказаться белыми
<span>На відміну від Microsoft Word в Microsoft Excel можливо тільки:
</span>
А) орієнтація
сторінки
Б) розмір пареру
В) розмір лівого,
правого, верхньго та нижнього полів.
<span>
</span>
Program Pascal;
var a,b:integer;
begin
writeln('Введите два числа : ');
readln(a,b);
writeln('Сумма этих чисел равна ',a+b,' ');
writeln('Произведение этих чисел равно ',a*b,' ');
writeln('Разность этих чисел равна ',a-b,' ');
end.
var n,i,k,a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln (a);
if (a div 3 <> 0) and (a mod 10 = 2) then
k:=k+1;
end;
writeln(k);
end.