Program n1; const n=10; var a: array[1..n] of integer; i,sum: integer; begin sum:=0; write('массив: '); for i:=1 to n do begin a[i]:=random(100); write(a[i],' '); if a[i] mod 4=0 then sum:=sum+a[i]; end; writeln; write('сумма кратных 4: ',sum); 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сс.
В первую очередь потому, что гибкие магнитные диски давно уже практически вышли из употребления, их совершенствование никого не интересует, в современные конструкции дисководы для гибких дисков вообще не ставятся. Уже и CD-то практически в А с точки зрения техники - в жестких дисках несколько пластин, головки не трутся по дискам, а летают над ними на воздушной подушке, вся система благодаря жесткости дисков прецизиционная, появление пыли внутри исключено системой фильтрации воздуха, в жесткие диски встроены микроконтроллеры, обеспечивающие работу следящей системы, управляющей перемещением головок. что обеспечивает намного меньшее расстояние между дорожками и намного более высокую плотность записи на этих дорожках.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Where(t->t mod 4=0).Sum.Println
end.
Пример
n= 15
16 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 19
36