1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
IP 18. 168. 250. 32
cеть 18. 168. 240. 0
маска 255.255. XXX. 0
-------------------------------------
250= 1111 1010 (2сс)
240= 1111 0000 (2сс)
XXX=1111 0000 =240---> единственный возможный третий байт маски
ответ 1
1 кубик - равен 1г
Мы запомним синий цвет
Вот такое вот количество
1) В 1 кбайте 1024 байт
1024:1024=1
1 кбайт
2) В 1 байте 8 битов
128:8=16
16 байт
3) В 1 кбайте 8192 битов
0,5*8192=4096
4096 битов
4) В 1 мбайте 1000000 байт
1280:1000000=0,00128 мбайт
0,00128 мбайт