Напишите программу, которая вводит номер месяца и выводит название времени года на языке. при вводе неверного номера месяца должно быть выведено слово 'no'. входные данные входная строка содержит единственное число – номер месяца (возможно, неверный). выходные данные нужно вывести название времени года (на языке), соответствующее введённому номеру месяца ('winter' – зима, 'spring' – весна, 'summer' – лето, 'autumn' – осень). если введён неверный номер месяца, программы должна вывести слово 'no'. для abcpascal !

Ответы

Sandra2516 29.07.2020 07:25

Var a : Integer;
Begin
Readln(a);
Case A of
   12,1..2 : Writeln('winter');
   3..5 : Writeln('spring');
   6..8 : Writeln('summer');
   9..11 : Writeln('autumn');
else Writeln('NO')
end;
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

VarLen20005 19.10.2020 21:37

Найти максимальный элемент числового массива A = (a1 , a2 , ... , aN ) и определить его номер. Составить блок-схему алгоритма....

korzina284 19.10.2020 21:37

Здравствуйте! Скажыте как на платформе Python из нескольких чисел (например с 5) найти самое большое. Буду очень благодарен)...

Rin1111 19.10.2020 21:37

Придумайте по два примера для отношений:1)между двумя объектами 2) между объектом и множеством объектов 3) между двумя множествами 4) входит в состав...

alzqsanko 19.10.2020 21:35

НА PYTHON; 3) Составьте программу для решения следюущей задачи:Клиент клажет в банк сумму Х, под процент P. Сколько у него будет через N лет, если каждый год он будет снимать со...

punchplz 19.10.2020 20:25

3. Соедините линией множество и его подмножество. Отметьте подмножество галочкой.ВигвамыРастенияДеревьяБарсукиВодоемыВрачиБарометрыЖилищаЖивотныеОзераЛюдиПриборы...

interpol7772 01.07.2019 13:40

Найти сумму кубов всех целых чисел от 20 до 40. ( написать программу в си++ )....

kesha326 01.07.2019 13:40

решить. 1)перевидите числа в 10-ую систему счисления: 647( в восьмой степени), 111011011( во второй степени) 2е8 ( в шестнадцатой степени) 2) перевести число : 674 ( в десятой степени)...

Маркіза1 26.03.2020 11:56

Даны следующие операторы: а) repeat Оператор 1 ; Оператор 2 ; ... Оператор n ; until p б) while not p do begin Оператор 1 ; Оператор 2 ; ... Оператор n ; end. Эквиваленты ли эти...

Агент271 26.03.2020 11:43

1.Документ в Интернете, который можно вбраузере,называется интернет —?2.Для поиска информации в Интернете можно пользоватьсяпоисковыми сайтами,самый известный из которых —?6 класс...

лера2285 28.04.2021 12:46

Напишіть програму, яка за поданим числом N виводить на екран всі числа,кратні 3,що не перевищують подане число.PascalABC...

Популярные вопросы