Var ar:array[1..5] of integer;
i,k1,k2:integer;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
if ar[i]<0 then k1:=k1+ar[i] else k2:=k2+ar[i];
end;
writeln('Сумма положительных:',k2);
write('Сумма отрицательных:',k1);
<span>end.</span>
Ответ:
18байт
Объяснение:
личный код имеет 14 символов кожен с которых может иметь 36 значений(26 значений букв и 10 цифр).
36 значений можно закодировать в 6 бит (2^6=64 - входит и значение 36)
Личный код имеет 14 символов значит
6 бит * 14 = 84бит=8.5байт
код подразделений имеет 8 значений 5 первых которые буквы от А до F (6 значений)
6 значений это 3 бита(2^3=8 - входит 6)
Код имеет 5 первых букв
5*3=15бит=1.9байт
И трьохзначное число по три значения кожное з которых может быть максимум 9
9 значений это 4 бита
таких значений есть 3
3*4=12бит=1.5байт
Сумируем 1.5+1.9+8.5=11.9≈12байт
30-12=18байт
1) считаешь кол-во цифр, и сопостовляешь им степени 2 сомому правому-2^0
2) слагаешь их
пример: 11001=1*2^4+1*2^3+0*2^2+0*2^1+1*1^0= 16+8+0+0+1=25