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

Ежемесячный номер выпуска дается-1-12 целое число (1 января, 2 февраля и т. Д.). Напишите программу на соответствующий годовой срок («зима», «весна», «лето», «осень»)​

  1. Ответ
    Ответ дан ingr

    var

       n : integer;

    begin

       write('введите номер месяца ');

       readln(n);

       case n of

           1, 2, 12  : writeln('зима');

           3..5      : writeln('весна');

           6..8      : writeln('лето');

           9..11     : writeln('осень');

           else writeln('за гранью разумного');

       end;

    end.

Самые новые вопросы