подсистема 1 подсистема 2
школа компьютер
государство солнечная система
человек
Program srednee;
var
a, b, c:integer;
sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
begin
a:= sqr(a); writeln ('Квадрат а=', a);
b:= sqr(b); writeln ('Квадрат b=', b);
c:= sqr(c); writeln ('Квадрат c=', c);
end else begin
if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
begin
a:= a+10; writeln ('а+10=', a);
b:= b+10; writeln ('b+10=', b);
c:= c+10; writeln ('c+10=', c);
end else begin
sa:=(a+b+c)/3;
write ('Среднее арифметическое =', sa);
end
end
end.
<span>Полагаю, вопрос оборван и полная формулировка звучит следующим образом:
"Для узла с IP-адресом 203.155.196.98 адрес сети равен 203.155.192.0. Найдите наибольшее возможное количество единиц в двоичной записи маски подсети."
Нас интересует 3-й октет (байт) IP адреса, который равен 196. Переведем в двоичную систему.
</span>
<span>Аналогично поступим с 3-м октетом адреса сети.
</span>
IP адрес и маска подсети дают адрес сети, их поразрядное логическое умножение друг на друга. Для наглядности запишем это в столбик.
11000100 - IP
хххххххх - маска
11000000 - адрес сети
Однозначно, чтобы получить единицы в крайних левых разрядах адреса сети, они должны быть и в маске.
11000100
11хххххх
11000000
В задании требуется определить максимально возможное количество единиц в маске. Т.к. в маске подсети сначала идут все единицы, а потом все нули без чередования, маска будет следующей:
11000100
11111000
11000000
Будь единиц в маске хотя бы на одну больше, адрес сети бы изменился на 11000100.
Теперь представим нашу маску в двоичном коде:
11111111.11111111.11111000.00000000
Число единиц 8+8+5=21.
Ответ: 21 единица.
Задача: из 6 палок сделать 4 треугольника
При температуре -39°С ртуть станет твердой.