1.35
2.var y,x:real;
begin
read(x);
if x<=-1 then
y:=-(1/sqr(x))
else if (x>-1) and (x<=-2) then
y:=sqr(x)
else if x>2 then y:=-4;
print (y);
end.
Cхему думаю составишь сам уже
Всего символов 7488
ответ 3,65625 кбайт
1. Добавлено 9 бит, так как в маске 255.0.0.0 - 8 единичных бит,
а в маске 255.255.128.0 - 17 единичных бит
2. Судя по маске получим 512 подсетей
3. В каждой подсети по 32766 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 10.101.0.0
5. Адрес IPv4 первого узла в этой подсети 10.101.0.1
6. Адрес IPv4 последнего узла в этой подсети 10.101.127.254
7. Широковещательный адрес IPv4 в этой подсети 10.101.127.255
Программа на Паскале
Программа не проверяет x на ОДЗ
Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>