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

Question

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

Comments

И в чем проблема? Проверяешь остаток от целочисленного деления на 2, если 0 - четное, если не 0, то не четное.

Answer 1

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