Ввести номер месяца и вывести название времени года. пример: введите номер месяца 4 весна напишите программу на языке паскаль

Var  a: byte; begin    writeln('введите номер месяца: ');   readln(a);   case a of     1, 2, 12: writeln('зима');     3..5: writeln('весна');     6..8: writeln('лето');     9..11: writeln('осень')   else writeln('ошибка');   end; end.

Перестановки с повторениями сообщение содержит 3 или 4 цвета. вариантов для 3 цвета 3*3*3 = 27 для 4 цвета подряд 3*3*3*3 = 81 27+81 = 108

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

 

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)