Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); <span>End.</span>
33(k)+22(k)+16(k)+17(k)=100(k)
Перейдем к десятичной системе счисления.
(3k+3)+(2k+2)+(k+6)+(k+7)=k²
k²-7k-18=0
D=49+72=121; √D=11
k₁=(7-11)/2=-2 < 0 - не удвлетворяет
k₂=(7+11)/2=9
Следовательно, <em><u>система счисления девятеричная.</u></em>
16777216 цветов это 2^24 т.е глубина цвета 24 бит
1024*768*24= 18874368 бит
переводим в байты
18874368 / 8 = 2359296 байт
переводим в килобайты
2359296 / 1024 = 2304 Кбайт
переводим в мегабайты
2304 / 1024 = 2,25 Мбайт