Написать программку, которая по введенному числу от 1 до 12 (номеру
Написать программку, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные деньки (к примеру, если введено число 1, то: 1 января Новый год, 7 января Рождество).
Задать свой вопрос1 ответ
Валя Завиралова
uses crt;
var n: integer;
begin
write(Введите номер месяца: );
readln(n);
case n of
1:
begin
writeln( 1 января - Новый год);
writeln( 7 января - Рождество Христово);
writeln(19 января - Крещение Господне);
end;
2:
begin
writeln( 8 февраля - Денек Русской науки);
writeln(20 февраля - Международный денек родного языка);
writeln(23 февраля - День заступника Отечества);
writeln(28 февраля - Масленица);
end;
3:
begin
writeln( 1 марта - Праздничек прихода весны);
writeln( 8 марта - Интернациональный женский день);
end;
4:
begin
writeln( 1 арпеля - Интернациональный денек птиц);
writeln( 7 апреля - Денек рождения Руинтернета);
writeln(12 апреля - Католическая Пасха);
writeln(23 апреля - Пасха);
end;
5:
begin
writeln( 1 мая - День труда);
writeln( 9 мая - Денек Победы);
writeln(10 мая - День матери);
writeln(15 мая - Интернациональный денек семьи);
end;
6:
begin
writeln( 5 июня - Глобальный день охраны окружающей среды);
writeln( 6 июня - Троица);
writeln(24 июня - Купала);
writeln(25 июня - День единения славян);
end;
7:
begin
writeln( 6 июля - Глобальный денек поцелуя);
writeln( 8 июля - Всероссийский денек семьи, любви и верности);
writeln(10 июля - Денек рыбака);
writeln(11 июля - Глобальный денек шоколада);
end;
8:
begin
writeln(12 августа - Денек Военно-воздушных сил (День ВВС));
writeln(22 августа - Денек Муниципального флага Русской Федерации);
end;
9:
begin
writeln( 1 сентября - Денек познаний);
writeln(21 сентября - Международный день мира);
writeln(30 сентября - Денек Интернета в Рф);
end;
10:
begin
writeln( 1 октября - Международный денек улыбки);
writeln( 5 октября - Глобальный денек учителя);
writeln(31 октября - Хэллоуин - канун Денька всех святых);
end;
11:
begin
writeln( 1 ноября - Денек всех святых);
writeln( 8 ноября - Международный день КВН);
writeln(17 ноября - Международный денек студентов);
writeln(27 ноября - Денек мамы Рф);
end;
12:
begin
writeln( 6 декабря - Денек сетевика);
writeln(10 декабря - Денек прав человека);
writeln(23 декабря - Католический сочельник);
writeln(25 декабря - Католическое Рождество);
end;
else writeln(Нет такого месяца!);
end;
readkey
end.
var n: integer;
begin
write(Введите номер месяца: );
readln(n);
case n of
1:
begin
writeln( 1 января - Новый год);
writeln( 7 января - Рождество Христово);
writeln(19 января - Крещение Господне);
end;
2:
begin
writeln( 8 февраля - Денек Русской науки);
writeln(20 февраля - Международный денек родного языка);
writeln(23 февраля - День заступника Отечества);
writeln(28 февраля - Масленица);
end;
3:
begin
writeln( 1 марта - Праздничек прихода весны);
writeln( 8 марта - Интернациональный женский день);
end;
4:
begin
writeln( 1 арпеля - Интернациональный денек птиц);
writeln( 7 апреля - Денек рождения Руинтернета);
writeln(12 апреля - Католическая Пасха);
writeln(23 апреля - Пасха);
end;
5:
begin
writeln( 1 мая - День труда);
writeln( 9 мая - Денек Победы);
writeln(10 мая - День матери);
writeln(15 мая - Интернациональный денек семьи);
end;
6:
begin
writeln( 5 июня - Глобальный день охраны окружающей среды);
writeln( 6 июня - Троица);
writeln(24 июня - Купала);
writeln(25 июня - День единения славян);
end;
7:
begin
writeln( 6 июля - Глобальный денек поцелуя);
writeln( 8 июля - Всероссийский денек семьи, любви и верности);
writeln(10 июля - Денек рыбака);
writeln(11 июля - Глобальный денек шоколада);
end;
8:
begin
writeln(12 августа - Денек Военно-воздушных сил (День ВВС));
writeln(22 августа - Денек Муниципального флага Русской Федерации);
end;
9:
begin
writeln( 1 сентября - Денек познаний);
writeln(21 сентября - Международный день мира);
writeln(30 сентября - Денек Интернета в Рф);
end;
10:
begin
writeln( 1 октября - Международный денек улыбки);
writeln( 5 октября - Глобальный денек учителя);
writeln(31 октября - Хэллоуин - канун Денька всех святых);
end;
11:
begin
writeln( 1 ноября - Денек всех святых);
writeln( 8 ноября - Международный день КВН);
writeln(17 ноября - Международный денек студентов);
writeln(27 ноября - Денек мамы Рф);
end;
12:
begin
writeln( 6 декабря - Денек сетевика);
writeln(10 декабря - Денек прав человека);
writeln(23 декабря - Католический сочельник);
writeln(25 декабря - Католическое Рождество);
end;
else writeln(Нет такого месяца!);
end;
readkey
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов