Разбиваем двоичное число справа налево по три разряда и каждую полученую тройку (триаду) заменяем соответствующей восьмеричной цифрой, дополняя слева недостающие разряды нулями.
10111101(2)=010 111 101(2)=275(8)
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Решение для 6 задачи)
<span># include <iostream>
<span>using namespace std;
</span><span>int main()
</span>{
<span>int n, nf = 1;</span><span>
cin >> n;</span><span>
for(int i = 2 ; i <= n ; i++)</span><span>
nf *= i;</span><span>
cout << nf;</span><span>
return 0;
</span><span>}</span></span>
While (a < -1) and (a > -1) do
Тело этого цикла никогда не будет выполнено даже один раз.
Условие требует, чтобы значение a было ОДНОВРЕМЕННО меньше -1 И БОЛЬШЕ -1.
A) 458552 Бита = 57319 Байта = 56 Кб
б) 100 Гб = 102 400 Мб
в) 250 Мб = 256 000 Кб
г) 1248576 Байт = 1219 Кб = 1 Мб