Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do
case S[I] of
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.
Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6
<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 единица.
Ответ:
Указан после каждого столбика с решением.
Ответ:ночь - ноль - соль - сель - сень - день
рота - нота - нога - нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума - пума - сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век
Объяснение: