Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do
Begin
s:=i mod 10+ i div 10;
if s=8 then a:=a*i;
end;
writeln (a);
<span>end.</span>
Ответ:
10.8.224.0
Объяснение:
<u>1. Получаем двоичный код IP-адреса:</u>
<em>10.8.240.121 = </em>0 0 0 0 1 0 1 0 . 0 0 0 0 1 0 0 0 . 1 1 1 1 0 0 0 0 . 1 0 0 0 0 0 1 1
<u>2. Получаем двоичный код маски: </u>
<em>255.255.224.0 = </em>1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 . 1 1 1 0 0 0 0 0 . 0 0 0 0 0 0 0 0
<u>3. Применяем к ним операцию побитовой конъюнкции (побитовое умножение), получим:</u>
0 0 0 0 1 0 1 0 . 0 0 0 0 1 0 0 0 . 1 1 1 0 0 0 0 0 . 0 0 0 0 0 0 0 0
<u>4. Записываем полученный адрес в десятичном формате:</u>
10.8.224.0
<u></u>
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
Ответ: <span>C) Г:\Газеты\Архив\Газеты.xls
</span>