Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
тождественно равно.
Используется для обозначения двух идентичных (равных при любых значениях входящих параметров) выражений
<span>обмениваются через:магистраль.</span>
Один символ - один байт, значит надо кол-во бит поделить на 8:<span>24576 /8 = 3072 символа.</span>