Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.
<u><em>Тестовое решение:</em></u>
n= 141
Есть одинаковые цифры
ЭТО ОБЫЧНЫЙ КАЛЬКУЛЯТОР,ТОЛЬКО ТАМ КРОМЕ +,- И * ЕСТЬ МНОГО ДРУГИХ ДЕЙСТВИЙ...НАПРИМЕР,ВОЗВЕДЕНИЕ N в степень...
Ответ:
20 байт
Объяснение:
Рассмотрим личный код. У нас используется алфавит из 14 символов.
2^3<14<2^4, Получается, что один символ кодируется 4 битами.
Всего в личном коде 19 символов. 19*4=76 бит, переводим в байты и округляем до целого значения 76/8 это 10 байт.
Рассмотрим теперь код подразделения. Нам нужно записать 1500 в двоичном коде. 255 - 1 байт, значит на 1500 нам потребуется 6 байт.
Всего на сотрудника выделено 36 байт. Из них используются 10+6=16
Таким образом на личную информацию выделяется 36-16=20 байт
Ответ: а меня ругать не будете ?
Объяснение:
71₈ = 1*8⁰ + 7*8¹ = 57₁₀
71₁₆ = 1*16⁰ + 7*16¹ = 113₁₀
110011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 51₁₀
211₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11010011₂
190₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10111110₂
88₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1011000₂
