profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан Joker4567
    Var a:Integer;
    Begin 
     Write('Введите число');
     Read(a);
      If a mod 2 = 0 Then Write('Число четное')
                     Else WriteLn('Число не четное');
    end.
Самые новые вопросы