var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
Громкий, тихий, остальные - вкус, цвета, размеры.
// PascalABC.Net 3.0, сборка 1066
begin
var n:=ReadInteger('Количество элементов массива: ');
var a:=ArrRandom(n,-10,10);
Writeln('Исходный массив: ',a);
Writeln('Максимумов: ',a.Where(x->x=a.max).Count)
end.
<em><u>Тестовое решение:</u></em>
Количество элементов массива: 20
Исходный массив: [5,-4,-9,-5,-10,10,10,-9,1,-8,0,-6,0,6,-3,-10,-2,2,-9,10]
Максимумов: 3
171 из десятичной в шестнадцатеричную = <span>AB
206 </span> из десятичной в шестнадцатеричную =<span>CE
</span>171 из шестнадцатеричные в десятичную = <span>369
</span>206 из шестнадцатеричные в десятичную =<span>518</span>
Да, могут. Не будут выглядеть так, как в отдельных, но могут.