Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
CLS
S = 0
FOR i =
1 TO 100
S = S +
i
NEXT i
<span>PRINT
"S=", S
</span>
Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
8388608/8=1048576 байт,
1048576/1024=1024 килобайта,
1024/1024=1 мегабайт.
<span># Как я понял, для отрицательного числа просто добавляется
# знак -
def IntToByte(x):
n = "" if x>0 else "0"
while x > 0:
y = str(x % 2)
n = y + n
x = int(x / 2)
print (n)
a = int(input())
if a>=0:
IntToByte(a)
else:
print('-',end = "")
IntToByte(-a)</span>