Составте программу,...

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

  1. king 08

    king 08 New Member

    Составте программу, определяющую,является ли введеное число с клавиатуры целое числочетным
     
    king 08, 9 мар 2010
    #1
  2. people

    people New Member

    Var
      i : Integer;
    begin
      Write('Введите число: ');
      Readln(i);
      
      if i mod 2 = 0 then 
        Writeln('Четное')
      else
        Writeln('Нечетное');

      Readln;
    end.
     
    people, 9 мар 2010
    #2

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

Наша группа