В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Елленаа
Елленаа
09.09.2022 21:59 •  Информатика

Подскажите, как делать такое задание? Определить количество и диапазоны адресов подсетей (даны адрес хоста и маска подсети):
а) 10.212.157.12 /24
б) 27.31.12.254 /31
в) 192.168.0.217 /28
г) 10.7.14.14 /14
д) 135.18.249.235 /19

Показать ответ
Ответ:
IsabellaSwan2017
IsabellaSwan2017
15.12.2021 17:50

Ввод нуля означает завершение ввода(он нигде не учитывается)

 

program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
   sum:=0;
   average:=0;
   counter:=0;
   sumOfPositive:=0;
   sumOfNegative:=0;
   read(x);

   while x <> 0 do
   begin
      sum:=sum+x;
      average:=average+x;
      counter:=counter+1;
      if x > 0 then
         sumOfPositive:=sumOfPositive+x
   else
      sumOfNegative:=sumOfNegative+x;
   read(x);
end;

   average:=average/counter;

   writeln('Sum = ', sum);
   writeln('Arithmetic average = ', average);
   writeln('The sum of positive numbers = ', sumOfPositive);
   writeln('The sum of negative numbers = ', sumOfNegative);
   readln;
end.

0,0(0 оценок)
Ответ:
vladkabanets
vladkabanets
31.05.2023 12:50

1) Тут в смысле надо тебе интеграл найти если да, то

      

Program Pr2;
uses crt;
procedure arifm(a,b:integer;var s:real);
begin
s:=(a+b)/2;
end;
procedure proiz(var a,b,c:integer);
var i,m1,m2:integer;
begin
m1:=1;m2:=1;
for i:=1 to a do m1:=m1*i;
for i:=1 to b do m2:=m2*i;
if m1>m2 then c:=m1
else c:=m2;
end;
var a,b,c:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
writeln(s);
proiz(a,b,c);
writeln(c);
end.

 

 

2)

Program Pr1;
uses crt;
procedure arifm(var a,b:integer;s:real);
begin
s:=(a+b)/2;
writeln(s:8:3);
end;
var a,b:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
end.

 

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота