Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write(Зима);
if (A>2)and(A<6) then Write(Весна);
if (A>5)and(A<9) then Write(Лето);
if (A>8)and(A<=11) then Write(Осень);
End.
Еще есть продолжения! сейчас отправлю
Скачай в интернете активатор, и он активирует тебе автоматически Windows, там их много поищи по поисковику.
3 Мб = 3*1024*1024*8 = 25165824 бит
3200*1800 = 5760000- всего пикселей
25165824/5760000 = 4.36 бит на пиксель округляем до 4 бит на писель
2^4 = 16
Ответ: 16 цветов
Вроде как 4 бита информации, так как объем знаний постоянно уменьшается в 2 раза(а уменьшение объема информации в 2 раза даёт один бит информации)
0/2-не аттестованны - 1 бит
1/2 - 1 бит
1/4 - 1 бит
1/8 - 1 бит
Наверное так
1+1+1+1=4