1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
<span>end.
2)</span>var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
<span>end.</span>
I = 30 байт= 240 бит
k = 40
j = 240/40 = 6
N = 2^j
N= 2^6 = 64
ответ: мощность = 64
7) 640*480=307 200 - всего пикселей
n=2^i
256=2^8
8 бит для кодирования одного пикселя
307200*8=2457600 бит для кодирования изображения
2457600/8/1024=300 Кб
8) 44100*16*23*60*2/8/1024/1024~232,15484619140625~232,2
Частота*разрядность*время в секундах*2(стерео) - объем в битах
объем в битах/8/1024/1024 - переводим в мегабайты
9) С такой задачей ни разу не встречался :/
Могу лишь предположить, что 4800*4=минимальная пропускная способность в битах. Если это так, то решение:
4800*4/8/1024=2,3 Кб
Но с 9 задачей я не уверен
Microsoft Windows (NT, XP, Vista, 7, 8)
Различные UNIX системы, такие как Solaris, FreeBSD
<span>Различные GNU/Linux системы</span>
79 из десятичной в двоичную 1001111
131 из десятичной в двоичную 10000011
<span>101011 из двоичной в десятичную 43
</span><span>110110 из двоичной в десятичную </span>54