Написать программку, которая по введенному числу от 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.
, оставишь ответ?
Имя:*
E-Mail:


Похожие вопросы
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость

Физика.

Из точки м выходят 3 луча MP MN и MK причём

Геометрия.

выпиши в свою тетрадь те правила этикета которые тебе не были

Разные вопросы.

Анна хорошо учится у неё много подруг свободное от учёбы время

Обществознание.

10) Килограмм конфет дороже килограмма печенья на 52 р. За 8

Математика.

Во сколько раз число атомов кислорода в земной коре больше числа

Химия.

Составить монолог от имени дневника двоечника 7-10 предложений

Русский язык.

Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо

Разные вопросы.

Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных

Разные вопросы.

Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей

Математика.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт