Написать программу которая по введенному числу от 1 до 12 номер месяца выдает

Содержание

Написать программу, которая по данному натуральному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что праздников нет. Выложите пожалуйста код

Код к задаче: «По номеру месяца выдать все приходящиеся на этот месяц праздничные дни»

Листинг программы

Private Function Holidays(ByVal NumberOfMonth As Integer) As String Select Case NumberOfMonth Case 1: Holidays = » 1, 2, 3, 4, 5 января – Новогодние каникулы, » + _ » 7 января – Рождество Христово» Case 2: Holidays = » 23 февраля – День защитника Отечества» Case 3: Holidays = » 8 марта – Международный женский день» Case 5: Holidays = » 1 мая – Праздник Весны и Труда» + _ » 9 мая – День Победы» Case 6: Holidays = » 12 июня – День России» Case 11: Holidays = » 4 ноября – День народного единства» Case 12: Holidays = » 31 декабря – выходной» Case 4, 7, 8, 9, 10 Holidays = » Праздников нет.» Case Else Holidays = » Номер месяца введён неправильно.» End Select End Function Private Sub Command1_Click() ‘Проверка Dim n As Integer n = InputBox(«Введите номер месяца», «Ввод данных», 1) If n >= 1 And n

Источник: studassistent.ru

Как найти максимальный элемент в списке Python

Написать программу,которая по введенному числу от 1 до 12(номеру месяца) выдает все приходящиеся на этот месяц праздничные дни(например,если введено число 1,то должно получится 1 января-Новый год,7 января-Рождество).

program prazdnik;
var a : integer ;
begin
readln(a);
if a=1 then writeln (пишите сюда праздиники в первый месяц,какие нужны);
if a=2 then writeln (сюда то чт ово второй );
if a=3 then writeln ( третий ) ;
if a=4 then writeln ( четвертый месяц с его праздниками);
if a=5 then writeln ( пятый месяц);
if a=6 then writeln ( шестой месяц);
if a=7 then writeln ( седьмой месяц);
if a=8 then writeln ( восьмой);
if a=9 then writeln ( праздники );
if a=10 then writeln (празники );
if a=11 then writeln ( праздники 11 месяца);
if a=12 then writeln (двенадцатый);
end.

Написать программу которая по введенному числу от 1 до 12 номер месяца выдает

Нажимая на кнопку «Задать вопрос», я даю согласие на обработку персональных данных

Паскаль с Нуля. Циклы с условиями. Урок 6

Задать вопрос

Написать программу,которая по введенному числу от 1 до 12(номеру месяца) выдает все приходящиеся на этот месяц праздничные дни(например,если введено число 1,то должно получится 1 января-Новый год,7 января-Рождество).

06 October 2013
Ответ оставил: ritakosenkova

Если будут где-то ошибки извините ,возможно в знаках)) проверьте в паскале ,если что напишите

program prazdnik;
var a : integer ;
begin
readln(a);
if a=1 then writeln (‘пишите сюда праздиники в первый месяц,какие нужны’);
if a=2 then writeln (‘сюда то чт ово второй ‘);
if a=3 then writeln (‘ третий ‘) ;
if a=4 then writeln (‘ четвертый месяц с его праздниками’);
if a=5 then writeln (‘ пятый месяц’);
if a=6 then writeln (‘ шестой месяц’);
if a=7 then writeln (‘ седьмой месяц’);
if a=8 then writeln (‘ восьмой’);
if a=9 then writeln (‘ праздники ‘);
if a=10 then writeln (‘празники ‘);
if a=11 then writeln (‘ праздники 11 месяца’);
if a=12 then writeln (‘двенадцатый’);
end.

Нравится —> 0

НЕ НАШЛИ ОТВЕТ?

Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (17.06.2023) наш сайт содержит 109572 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.