<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
<span><span>Вообще, из 9 букв)
Автосалон</span>
</span><span><span>Автоспорт
Автоспуск
Авиасалон
</span></span>
Размеры изображения K= 300 х 300 х10 х12= 10800000 пикселей
Информационный объем равен J=K*i
глубина цвета равна 3 байта =3*8=24 бит
J=24 бит * 10800000=2.592*10^8 бит =32400000 байт =31640.6 кБайт=30.9 Mб
Ответ:
1.
86₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1010110₂
86₁₀ = 6*8⁰ + 2*8¹ + 1*8² = 126₈
86₁₀ = 6*16⁰ + 5*16¹ = 56₁₆
111010₂ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ = 58₁₀
58₁₀ = 2*8⁰ + 7*8¹ = 72₈
58₁₀ = 10*16⁰ + 3*16¹ = 3A₁₆
46₈ = 6*8⁰ + 4*8¹ = 38₁₀
38₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100110₂
38₁₀ = 6*16⁰ + 2*16¹ = 26₁₆
2F₁₆ = F*16⁰ + 2*16¹ = 47₁₀
47₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ = 101111₂
47₁₀ = 7*8⁰ + 5*8¹ = 57₈
55₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 110111₂
55₁₀ = 7*8⁰ + 6*8¹ = 67₈
55₁₀ = 7*16⁰ + 3*16¹ = 37₁₆
2.
76₈ < 93₁₀ < 1101111₂ < A9₁₆
1101111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 111₁₀
A9₁₆ = 9*16⁰ + A*16¹ = 169₁₀
76₈ = 6*8⁰ + 7*8¹ = 62₁₀
93₁₀ = = 93₁₀
3.
110111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 55₁₀
135₈ = 5*8⁰ + 3*8¹ + 1*8² = 93₁₀
55₁₀ + 93₁₀ = 148₁₀
148₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10010100₂
ответ 4. 10010100₂