var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
A16 в16<span> = 2</span><span>582 в 10
а перевести просто пишешь у А16 степени 2.1.0 и умножаешь 10 на 16 во2+1на 16 в 1+6 на 16 в 0
</span>
Результат вычисления выражения = 282472583184
В 3-ричной системе = 1000000002222222222222100
Кол-во цифр 2 = 13
9^8+3^24-18 = 3^24 + 3^16 - 2*3^2
3^24(3) = 1000000000000000000000000 - нет 2
3^16 - 3^2 (3) = 2222222222222200 - 16-2 = 14 двойки
3^16 - 3^2 - 3^2 (3) = 2222222222222100 - забирается 1 двойка
Ответ 14-1=13
N=64<span>K=10
i=6
I=K*i=10*6=60 бит </span>