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

Вариант 2

1. Перевести число 22510 из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную.

2. Перевести числа 1011012; 101028; ABC16; в десятичную систему счисления желательно с решением

Показать ответ
Ответ:
Емиррорроо
Емиррорроо
06.01.2020 15:08
Знаковая система - набор символов определенного типа. Любая знаковая система строится на основании символов определенного типа. В одной знаковой системе одни и те же правила работы со всеми символами. Каждая знаковая система имеет конечный набор символов, который называют алфавитом. Количество символов в одной знаковой системе называют мощностью знаковой системы.
Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково.
Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы. 
0,0(0 оценок)
Ответ:
alyona20107
alyona20107
13.02.2020 19:41
1)
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 s:=0;
 k:=0;
 for i:=1 to n do
  begin
   s:=s+a[i];
   k:=k+1;
  end;
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 readln;
End.

2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 min:=a[1];
 max:=a[1];
 for i:=1 to n do
   if (i mod 2)=0 then
     if a[i]>max then
       max:=a[i];
 for i:=1 to n do
   if (i mod 2)<>0 then
     if a[i]<min then
       min:=a[i];
 writeln('max=',max);
 writeln('min=',min);
 readln;
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота