Var
n: integer;
begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
1: writeln('1 января - Новый год; 7 января - Рождество Христово');
2: writeln('23 февраля - День защитника Отечества');
3: writeln('8 марта - Международный женский день');
5:
begin
writeln('1 мая - Праздник Весны и Труда;');
writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
end;
6: writeln('12 июня - День России');
11: writeln('4 ноября - День народного единства')
end
end.
Тестовое решение:
Введите номер месяца (1-12): 6
12 июня - День России
1) какой то вопрос неполный, ну может комнатами))
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.
1)
П0 1 ВП 3 / [x] П1 С/П П0 ИП1 1 ВП 3 * - С/П
Инструкция: граммы В/О С/П. Результат: килограммы С/П граммы.
2)
^ 1 ВП 4 / [x] С/П
Инструкция: ары С/П.
Первая строка - цифры от 2 до 26.
Вторая строка - количество способов, чтобы попасть в какое-то число используя наши команды. *2, + 3.
У нас есть 2 действия: Умножить на 2 и прибавить 3.
Первое число у нас - 2, в него мы можем попасть 1 способом, всегда так, в самое первое число по дефолту можем попасть 1 способом, идём далее.
Число 3, как нам попасть в число 3 из числа 2, используя наши команды? Никак мы этого не сделаем.
Дальше число 4, можем ли мы попасть из числа 2 или 3 попасть в число 4, используя наши команды? Можем из двойки 2 * 2 = 4, следовательно в 4-ку мы можем попасть 1 способом. Далее по аналогии.
