М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ramazanguly
Ramazanguly
18.03.2021 21:10 •  Информатика

Пользователь вводит номер месяца, программа выводит название сезона

например пользователь вводит 5 - программа ввводит-весна(Паскаль)

👇
Ответ:
mrtwesor
mrtwesor
18.03.2021

var a: integer;

begin

readln(a);

if (a < 12) then  

 begin

 if (a >= 0) then

   begin

     case a of 1: writeln('Январь'); end;

     case a of 2: writeln('Февраль'); end;

     case a of 3: writeln('Март'); end;

     case a of 4: writeln('Апрель'); end;

     case a of 5: writeln('Май'); end;

     case a of 6: writeln('Июнь'); end;

     case a of 7: writeln('Июль'); end;

     case a of 8: writeln('Август'); end;

     case a of 9: writeln('Сентябрь'); end;

     case a of 10: writeln('Октябрь'); end;

     case a of 11: writeln('Ноябрь'); end;

     case a of 12: writeln('Декабрь'); end;

   end;

 end;

end.

4,8(6 оценок)
Открыть все ответы
Ответ:
borik7777
borik7777
18.03.2021
Перед каждым человеком рано или поздно становится выбор – кем стать? И передо мной сейчас тоже встал такой вопрос. Я очень долго думал кем мне стать, так как в мире много важных профессий. Например, врач - очень важная профессия, потому что без этих людей мы не смогли бы поправить себе здоровье; швея, без нее мы бы ходили в некрасивой одежде, если бы она вообще у нас была; кондитеры, без которых у нас не было бы хлеба и другой выпечки; военный, по моему мнению, почти самая главная профессия, потому что без него нас некому было бы защитить. Но сейчас - 21 век, и я выбрал профессию, которая соответствует этому столетию – программист.Недавно попало мне сочинение одного ученика на тему «Моя будущая профессия». Он написал о профессии программист. Все-таки, автор имеет довольно смутное представление о том, что на самом деле представляет из себя эта профессия, но все равно приятно, что он хочет стать программистом и готов ради этого настойчиво учиться.
4,7(44 оценок)
Ответ:
Тосямдр
Тосямдр
18.03.2021
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(35,-99,99); a.Println;
  Sort(a); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
-68 20 -21 -52 -31 -80 -8 84 -58 -64 88 -90 12 21 -44 -48 2 -10 41 -45 7 9 -43 -19 85 70 -95 -36 -7 -87 69 -48 -57 -60 19
-95 -90 -87 -80 -68 -64 -60 -58 -57 -52 -48 -48 -45 -44 -43 -36 -31 -21 -19 -10 -8 -7 2 7 9 12 19 20 21 41 69 70 84 85 88
88 85 84 70 69 41 21 20 19 12 9 7 2 -7 -8 -10 -19 -21 -31 -36 -43 -44 -45 -48 -48 -52 -57 -58 -60 -64 -68 -80 -87 -90 -95

begin
  var a:=ArrRandom(10,-99,99); a.Println;
  a:=(a[:4].OrderBy(x->x).ToArray)+(a[4:6])+(a[6:]
      .OrderByDescending(x->x).ToArray);
  a.Println;
end.

Пример
-50 -45 30 -67 -65 -1 3 60 69 -91
-67 -50 -45 30 -65 -1 69 60 3 -91
4,6(21 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ