1 задание) ответ: 1323141; Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141 2 задание) ответ: 2949; мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949 3 задание) ответ: 3; чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3 4 задание) ответ: 1; нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1. 5 задание) ответ: 1112221; Я всегда начинаю с обратного 57-56-28-14-7-6-5-4 собираем с конца 1112221
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.