Begin write('Максимальное четное число типа integer = '); if MaxInt mod 2=0 then writeln(MaxInt) else writeln(MaxInt-1); write('Минимальное нечетное число типа integer = '); if (-1-MaxInt) mod 2<>0 then writeln(-1-MaxInt) else writeln(0-MaxInt); end.
Результат: Максимальное четное число типа integer = 2147483646 Минимальное нечетное число типа integer = -2147483647
Answers & Comments
Verified answer
Beginwrite('Максимальное четное число типа integer = ');
if MaxInt mod 2=0 then writeln(MaxInt) else writeln(MaxInt-1);
write('Минимальное нечетное число типа integer = ');
if (-1-MaxInt) mod 2<>0 then writeln(-1-MaxInt) else writeln(0-MaxInt);
end.
Результат:
Максимальное четное число типа integer = 2147483646
Минимальное нечетное число типа integer = -2147483647