<span>переведем число 12 в двоичную СС и получим 1100.
1100 не удовлетворяет условию.
Троичная CC:
1*3²+1*3+0=12!
Ответ:троичная СС</span>
Var
A: array of integer;
i, num, len, amount: integer;
begin
amount := 0; len := 1; i := 0; num := -1;
write('Введите последовательность чисел -> ');
repeat
SetLength(A, len);
read(A[i]);
num := A[i];
i += 1;
len += 1; // длина массива
until (num = 0);
for i := 0 to High(A) do
if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then
amount += 1;
write('Количество чётных чисел, кратных 7: ', amount, '.');
end.
Информационная система (ИС) — система, предназначенная для хранения, поиска и обработки информации, и соответствующие организационные ресурсы (человеческие, технические, финансовые и т. д...
<span>g = <span>9.8
</span>d = <span>1200
</span>h1 = <span>7
</span>h2 = <span>4
</span>h3 = <span>10
</span>h4 = <span>6
</span>h5 = <span>5
</span>h6 = <span>3
</span>p1 = d*g*h1
p2 = d*g*h2
p3 = d*g*h3
p4 = d*g*h4
p5 = d*g*h5
p6 = d*g*h6
print('1: '+ str(p1) +' 2: '+str(p2)+' 3: '+str(p3)+' 4: '+str(p4)+' 5: '+str(p5)+' 6: '+str(p6))</span>