Записать последовательность операторов...

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

  1. Valera

    Valera New Member

    Записать последовательность операторов для решения задачи:Дано описание:
    type month = 1..12;
    var d:28..31;
    m:month;
    Переменной d присвоить количество дней в месяце m (год считать не високосным)
     
    Valera, 9 мар 2010
    #1
  2. Connon

    Connon New Member

    Даже не знаю. Так?

    type month=1..12;
    var d:28..31;
    m:month;
    begin
    read(m);
    case m of
    1,3,5,7,8,10,12:d:=31;
    4,6,9,11:d:=30;
    2:d:=28;
    end;
    write(d)
    end.
     
    Connon, 9 мар 2010
    #2

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

Наша группа