Автор Колян задал вопрос в разделе Другие языки и технологии
Помогите пожалуйста,кто разбирается в Паскале!Нетрудная задачка. и получил лучший ответ
Ответ от 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.
Удачи!
если(число div 2)*2<>числуто не четное
1 вариант: стандартная функция pred(x) возвращает TRUE, если x - четное число.. . if pred(x) then writeln(true) else writeln(false);2 вариант: if x mod 2 = 1 then writeln(true) else writeln(false);
число div 2=1 не четноечисло div 2=0 четное