Var a: boolean;
<span> b: integer;
</span>
begin
a:= true;
if (a) then
b:= 4;
else
b:= -4;
writeln(b);
end.
1) 111 010 110 111
2) 6706 = 6×8^3 + 7×8^2 + 6×1 = 3526
3) 61(8) = 6×8 + 1 = 49(10) = 31(16)
4) 111 110 010
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
Var a:array[1..5] of integer;i:integer;m,z:real;
begin
for i:=1 to 5 do
begin
readln(a[i]);
m:=m+a[i];
end;
z:=m/5;
writeln(z);
<span>end.</span>
5кбайт=5120 байт
<span>12288бит это </span>1536 байт, 1.5 килобайт
2 бит=0.25 байт
1536мбайт=1.5гб, 1572864кбайт