1.
Дано А = A816, B = 2528. Найдите сумму A + B. ответ укажите в двоичной системе. В ответе запишите только цифры числа. Основание системы счисления писать не надо!
2.
Сколько единиц в двоичной записи восьмеричного числа 1735?
3.
Сколько единиц в двоичной записи шестнадцатеричного числа 12F2?
4.
Переведите число В3D из шестнадцатеричной в двоичную систему счисления. В ответе запишите только цифры числа. Основание системы счисления писать не надо!
5.
Переведите в шестнадцатеричную систему счисления двоичное число 111101 В ответе запишите только цифры числа. Основание системы счисления писать не надо!
6.
Переведите в восьмеричную систему счисления двоичное число 1101100 В ответе запишите только цифры числа. Основание системы счисления писать не надо!
7.
Переведите в четверичную систему счисления двоичное число 1101100 В ответе запишите только цифры числа. Основание системы счисления писать не надо!
8.
Представьте число 112 в машинном формате, при условии, что на число отводится 8 бит памяти.
9.
Представьте число -11 в машинном формате, при условии, что на число отводится 8 бит памяти.
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.
program raf105;
const
n = 10; //Размер массива
var
a,b,c: array[1..n] of integer;
x,i,j,b2,c2,min,minpos: integer;
begin
write('Введите число: ');
readln(x);
writeln('Вводите числа по очереди');
for i:=1 to n do
begin
readln(a[i]);
if a[i] > x
then begin
c2:= c2+1;
c[c2]:= a[i];
end
else begin
b2:= b2+1;
b[b2]:= a[i];
end;
end;
for i:=1 to b2 do
begin
min:= b[i];
minpos:= i;
for j:=i to b2 do
if b[j] < min
then begin
min:= b[j];
minpos:= j;
end;
b[minpos]:= b[i];
b[i]:= min;
end;
for i:=1 to b2 do
a[i]:= b[i];
for i:=1 to c2 do
a[i+b2]:= c[i];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2