М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kateshopina0703
kateshopina0703
14.05.2020 14:21 •  Информатика

Перевести числа в десятичную систему: 101,1000,1001,1011,110,110,111,1011,10,11,1010,100.

👇
Ответ:
Руслана462
Руслана462
14.05.2020
101=1*2^{0}+1*2^{2}=5
1000=1*2^{3}=8
1001=1*2^{3}+1*2^{0}=9
1011=1*2^{0}+1*2^{1}+1*2^{3}=11
110=1*2^{1}+1*2^{2}=6
110=1*2^{1}+1*2^{2}=6
110=1*2^{0}+1*2^{1}+1*2^{2}=7
1011=1*2^{0}+1*2^{1}+1*2^{3}=11
10=1*2^{1}=2
11=1*2^{0}+1*2^{1}=3
1011=1*2^{0}+1*2^{3}=10
100=1*2^{2}=4
4,5(9 оценок)
Открыть все ответы
Ответ:
alena10003
alena10003
14.05.2020
PascalABC.NET

1)
 const     n = 10;
 var
   a : array [1..n] of integer;
   i : integer;
 begin 
  randomize; 
   for i := 1 to n do 
    begin 
    a[i] := 22 + random(114); 
    if a[i] > 100 then 
     writeln (a[i]); 
    end;
  end.

2)
 var 
  a,n,r,i : integer; 
   begin 
 r := 1; 
 readln (a,n); 
  for i := 1 to n do 
   r := r * a;
  writeln (r);
   end.

3)

 var 
 n,i,r : integer;
    begin 
 r := 1; 
 readln (n);
   for i := 1 to n do
    r := r *i; 
 writeln (r);
  end.

4)
 var 
 i : integer;
 begin
  for i := 192 to 223 do
   write(chr(i); ,'  '); 
end.

5)
 var 
 i : integer; 
   begin  
  for i := 255 downto 240 do
   write (chr(i),' ');  
  writeln();  
  for i := 239 downto 224 do 
 write (chr(i),' ');  
  end.

7)
 var 
 i : integer; 
begin  for i := 122 downto 97
do   writeln(chr(i)); 
end.
4,5(8 оценок)
Ответ:
elf35
elf35
14.05.2020
// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1
4,4(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ