64 это 2 в 6 степени.Один символ весит 6 бит
I=K*b 6*150 =900
Ответ 900
3.........................................................
var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
1)
<span>z = 0
</span><span>считаем количество нечётных элементов массива
</span>15 (нечётное) z = 1
<span>17 </span> (нечётное) z = 2
<span>24</span> (чётное) z = 2<span>
18</span> (чётное) z = 2<span>
13 </span> (нечётное) z = 3<span>
28</span> (чётное) z = 3<span>
18</span> (чётное) z = 3<span>
95</span> (нечётное) z = 4<span>
19 </span> (нечётное) z = 5<span>
17 </span> (нечётное) z = 6
<span>Ответ: 6
2)
</span><span>s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
</span>14 > 24 (нет)
<span>8</span> > 24 (нет)<span>
56</span> > 24 (да) s = 56
12 > 56 (нет)<span>
48</span> > 56 (нет)<span>
25</span> > 56 (нет)<span>
19</span> > 56 (нет)<span>
17</span> > 56 (нет)
Ответ: 56