Var a,b,c:Integer;
Begin
Write('Введите длину 1 катета: '); Readln(a);
Write('Введите длину 2 катета: '); Readln(b);
Write('Введите длину гипотенузы: '); Readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if (sqr(c)=sqr(a)+sqr(b)) then
Writeln('Треугольник прямоугольный')
else
Writeln('Треугольник другого типа');
end
else
Writeln('Треугольник не существует');
END.
Переводим 112 и 64 в 2СС .
112 =<span>1110000
64 =1000000
так как байт - это 8 бит ,следовательно в числе должно быть восемь знаков , тогда добавляем перед числами по незначащему нулю , тогда
112 = 01110000
64 = 01000000
адрес сети получается , когда мы применяем поразрядную конъюнкцию (между маской и ip адресом)
01110000
хххххххх <-- маска
-------------
01000000
мы видим в адресе сети единицу и над ней в ip адресе тоже единица , значит на этом месте в маске может быть только 1 .
Так как в маске у нас идут (СТРОГО) сначала единицы ,потом нули, тогда маска будет равна 11000000 , что в переводе в 10 -ную СС =</span><span>192
Ответ : 192</span>
№1
var chislo, sum: integer;
begin
repeat
writeln('Введите трехзначное число:');
readln(chislo);
until chislo in [100..999];
while chislo > 0 do
begin
sum := sum + chislo mod 10;
chislo := chislo div 10;
end;
if sum mod 2 = 0 then
write('Число четное')
else write('Число нечетное');
readln;
<span>end.
</span>
№2
var factorial: longint; chislo, i: byte;
begin
chislo := 5;
factorial := 1;
for i := 2 to chislo do
factorial := factorial * i;
writeln('5! = ', factorial);
<span>end.</span>