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

Здавствуйте ! решить,перевесети из двочного кода в десятичный код.числа записаны в парах : 1)101 101 2)1000 1000 3)1001 1000 4)1011 110 5)1100 110 6)1100 111 7)1011 111 8)1011 10 9)1001 10 10)1001 11 11)1010 11 12)1010 100 13)111 100 14)111 10 15)101 10 16)101 11 17)110 11 18)110 1001 19)111 1001 20)111 1000 21)10 1000 22)10 1001 23)11 1001 24)11 110 25)100 101 или подскажите как решать хотя бы: ))заранее .

👇
Ответ:
fuhohejo
fuhohejo
06.09.2020

C = an * Mn + an-1 * Mn-1 + ... + a1 * M + a0. (формулу пришлось найти в интернете да не покорает меня администрация, ибо переписывать ее очень долго)


Девушка, теперь поясню как ей пользоваться на одном примере - для остальных напишу только ответы:


101101 - число в двоичной системе измерения

осуществляем перевод в десятичную:

у нас 6 разрядов - отсюда следует, что n=5(т.к. отсчет ведется с нуля)

раскладываем данный многочлен по вышеуказанной формуле:

С=1*2^5+0*2^4+1*2^3+1*2^2+0*2+1=32+8+4+1=45

ответ: 45.

 

Теперь по списку начиная со второго:

1000 1000 = 136

152

94

102

103

95

46

38

39

43

84

60

30

22

23

27

105

121

120

40

41

57

30

37

4,6(70 оценок)
Открыть все ответы
Ответ:
moto5
moto5
06.09.2020
Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.
4,4(19 оценок)
Ответ:
lmarusia
lmarusia
06.09.2020
S:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.
2
a:array[1..1000] of integer;
begin
k:=1;
for i:=100 to 999
if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end;
for i:=1 to k do
writeln(a[i]);
readln;
end.

3
s, a:string;
i, k:integer;
begin
readln(s);
readln(a);
for i:=1 to length(s) do
if s[i]=a then s[i]:='';
writeln(s);
readln;
end.
4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ