pred в паскале

Ответ от Gennady[гуру]
Доброго времени суток.
Alex, очевидно, имел в виду функцию Odd(X), которая возвращает True для нечетного параметра. А Pred это несколько иное.. .
Pred (функция)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Возвращает предшественника параметра.
Объявление:
Function Pred(X) : < тип параметра >;
Режим:
Windows, Real, Protected
Замечания:
Параметр X - выражение перечислимого типа.
Pred(X) вернет результат того же типа что и X,
являющийся предшественником X в данном типе.
Например, Pred('B') = 'A';
Pred(8) = 7 ;
Смотри также:
Dec
Inc
Succ
Что касается программки, то она может быть такой.
Program one;
uses crt;
var
N, Sum : Integer;
begin
ClrScr;
Write('Введите число : ');
ReadLn(N);
Sum := 0;
while N > 0 do begin
Sum := Sum + (N mod 10);
N := N div 10;
end;
WriteLn(Sum mod 2 = 0);
ReadLn;
end.
Удачи!