Помогите с информатикой!...

Тема в разделе "Информатика", создана пользователем Kiry, 22 фев 2010.

  1. Kiry

    Kiry New Member

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

    Soecon New Member

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

Поделиться этой страницей

Наша группа