Как написать простую программу в Паскале, чтобы найти: 1. максимальное чётное 2....

Question

Как написать простую программу в Паскале, чтобы найти:
1. максимальное чётное
2. минимальное нечётное

Comments

Вам нужно максимально допустимое четное число?

---

зависит от ваших способностей и знаний

---

9 класс, максимально простые команды

Answer 1

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