Program gt;
var s:string;
l:integer;
begin
readln(s);
l:=length(s);
writeln(s[1]);
writeln(s[l],' ',s[l]);
end.
Чтобы закодировать 16 цветов, нужно 4 бита.
Чтобы закодировать 256 цветов, нужно 8 бит.
4 бита это пол байта. 8 бит это 1 байт.
640*480/2 - количество памяти в байтах, требуемое для хранения одной страницы в случае а).
640*480 - количество памяти в байтах, требуемое для хранения одной страницы в случае б).
Чтобы найти искомое количество страниц, нужно выполнить деление
(512*1024) / (640*480/2) для случая а)
(512*1024) / (640*480) для случая б)
C h u k a l o v a
68 104 117 107 97 108 111 118 97
1000100 1101000 1110101 1101011 1100001 1101100 1101111 1110110 <span>1100001</span>
Т.к. abc(x) = a*x^2+b*x+c, то нужно найти такие x, чтобы x^3 > 21 и x^2 <= 21.
при x=2: x^2 = 4, x^3 = 8 - не подходит
при x=3: x^2 = 9, x^3 = 27 - подходит
при x=4: x^2 = 16, x^3 = 64 - подходит
при x=5: x^2=25, x^3 = 125 = не подходит
Ответ: 3, 4
Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>