Question

Помогите с информатикой! Срочно! Нужно решить задачу в паскале с ветвлением - составить программу определения четных (нечетных)  чисел.

Answer 1

Var a:Integer;
Begin 
 Write('Введите число');
 Read(a);
  If a mod 2 = 0 Then Write('Число четное')
                 Else WriteLn('Число не четное');
end.