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.
Примерно 19 секудн.
128000 бит=16000 байт
300 Кбайт=307200 байт
307200:16000
Лінивий так-телевізор,ні-ДЗ
А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?