Анализ Откройте любой на казахстанских сайтов (*.kz) и проведите анализ Электронных ресурсов, размещенных на нем. Защищены ли авторские права произведений, размещенных на выбранном сайте? Не нарушает ли сайт права других авторов?
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c,d,kn,kp:real; Read(a,b,c,d); if a>0 then kp+=1 else if a<0 then kn+=1; if b>0 then kp+=1 else if b<0 then kn+=1; if c>0 then kp+=1 else if c<0 then kn+=1; if d>0 then kp+=1 else if d<0 then kn+=1; Writeln('Положительных ',kp,', отрицательных ',kn) end.
Пример 8 -2 0 -4 Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var a,b,c,d,kn,kp:real;
begin Read(a,b,c,d); kp:=0; kn:=0; if a>0 then kp+=1 else if a<0 then kn+=1; if b>0 then kp+=1 else if b<0 then kn+=1; if c>0 then kp+=1 else if c<0 then kn+=1; if d>0 then kp+=1 else if d<0 then kn+=1; Writeln('Положительных ',kp,', отрицательных ',kn) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d,kn,kp:real;
Read(a,b,c,d);
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пример
8 -2 0 -4
Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var
a,b,c,d,kn,kp:real;
begin
Read(a,b,c,d);
kp:=0; kn:=0;
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
IP 214.120.249. 18
маска 255.255.240. 0
cеть 214. 120. х. 0
240=128+64+32+16=1111 0000 (2сс)
249=240+8+1 = 1111 1001 (2сс)
1111 0000 - побитовая конъюнкция =240
x=240
ответ 214.120.240.0
2)
IP 114 = 64+ 32+ 16+2=0111 0010
сеть 96=64+32 = 0110 0000
маска= 1110 0000 =128+64+32= 224
ответ 224
3)
156. 32.149.138 IP
156. 32.128. 0 сеть
255.255. х . 0
149=128+16+4+1=1001 0101
128= 1000 0000
max маска 1110 0000=224 (3 единицы)
маска 255.255.224.0 (в 255=1111 1111 - 8 единиц)
8+8+3=19 единиц