Question

СРОЧНО, ИНФОРМАТИКА!!!!!!!!!!! 1) Определить чётное и нечётное, положительное или отрицательное число.

Answer 1

Var x: Integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln('Число ',x,' - чётное') else
writeln('Число ',x,' - нечётное');
if x>0 then writeln('Число ',x,' - положительное') else
if x<0 then writeln('Число ',x,' - отрицательное') else
writeln('Число ',x,' - неположительное и неотрицательное число')
end.

Answer 2

Для определения четности или нечетности числа необходимо проверить остаток от деления этого числа на 2. Если остаток равен 0, то число четное, иначе число нечетное.

Для определения знака числа необходимо проверить его значение. Если число больше 0, то оно положительное, если число меньше 0, то оно отрицательное.

Например, если имеется число 7, то:

• 7 является нечетным числом
• 7 является положительным числом

Если имеется число -4, то:

• -4 является четным числом
• -4 является отрицательным числом