На 234 метро вырастет деревом через 2340 дней
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(56);
if (a[i]>=12) and (a[i]<=34) then k:=k+1;
if i<>n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')
end;
writeln;
writeln ('Количество элементов, значения которых попадают в интервал от 12 до 34, равно ',k)
end.
Var
a:array[1..10] of integer;
i:integer;
begin
randomize;
writeln('Ishodnyy massiv:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],' ');
end;
for i:=1 to 5 do
begin
a[i*2]:=a[i*2]+a[i*2-1];
a[i*2-1]:=a[i*2]-a[i*2-1];
a[i*2]:=a[i*2]-a[i*2-1];
end;
writeln('Novyy massiv:');
for i:=1 to 10 do
write(a[i],' ');
end.
1)
IP 9. 102. 202. 52
маска 255. 255. 240. 0
адрес 9. 102. 192. 0
---------------------------------------------
в адрес сразу записываем выделенные полностью соответствующие байты (первый и второй байты) байтам маски =255 (255(10сс) = 1111 1111 (2сс))
последний байт маски =0, он "гасит" всё, и в адресе будет 0.
----------------------------------------------
остался один третий байт.
202 и 240
202 (10сс) = 128+64+8+2=2^7 + 2^6+2^3+2^1 = 1100 1010 (2cc)
240 (10cc) = 128+64+32+16=2^7+2^6+2^5+2^4=1111 0000 (2cc)
--------------------------------------------------
поразрядная конъюнкция:
1100 1010 * поразрядно
1111 0000
----------------
1100 0000 =2^7 +2^6 =128+64= 192 (10cc) - искомое значение третьего байта в 10сс.
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Норм.