Помогите с задачкой, пожалуйста!

[korteas]

вот она это задачка:Дано целое число N. Вывести сообщения типа « N- четное отрицательное », « N- четное положительное », « N=О », « N- нечетное отрицательное », « N- нечетное положительное» в зависимости от его (N) вида. Я извиняюсь за возможные неястности, переводил с другог языка.

[Stilet]

На каком языке, то?

[korteas]

на delphi.

[Stilet]

По памяти :

If (n<0)and(n mod 2 =0) then ShowMessage('четное отрицательное');
If (n>0)and(n mod 2 =0) then ShowMessage('четное Положительное');
If (n<0)and(n mod 2 <>0) then ShowMessage('нечетное отрицательное');
If (n>0)and(n mod 2 <>0) then ShowMessage('нечетное положительное');

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=strtointdef(edit1.Text,1);
if n=0 then
begin
showmessage('Число n =0');
exit;
end;
if (n mod 2)=0 then
begin
if n<0 then showmessage('Число n чётное отрицательное')
else showmessage('Число n чётное положительное')
end else if n<0 then showmessage('Число n нечётное отрицательное')
else showmessage('Число n чётное положительное')
end;

[Alex21]

Не забываем использовать функцию Odd
Function Odd(X: LongInt): Boolean;

[Stilet]

Сообщение от Alex21

Не забываем использовать функцию Odd
Function Odd(X: LongInt): Boolean;

Их развеж все упомнишь )