52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
если по логике то должно получится 2064, а это 2 килобайта 16 байт = 2,16 килобайт.
Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, т
Сергей1959москва
Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);
for i:=1 to 17 do
if odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
for i:=1 to 17 do
if not odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
end.
Нужно сложить Фреграт и эсминец и вычесть из этого фрегат & эсмнинец
2000 +2500 - 500 = 4000 стр