4 года назад

Вычеслить арифметическое значение,переведя в десятичную систему счисления (10110+1011)2

Знания

Информатика

1 ответ:

Tomanik4 года назад

0 0

$10110_2=2^4+2^2+2^1=16+4+2=22 \\
1011_2=2^3+2^1+2^0=8+2+1=11 \\
22+11=33$

Читайте также

Помогите решить пожалуйста По данному натуральному числу N найдите сумму чисел 1+1/1!+1/2!+1/3!+...+1/N!. Количество действий до

Jolerer [50]

Var i,n: integer;
s,t: real;
begin
write('n = '); readln(n);
s:=1; t:=1; i:=1;
repeat
t:=t/i;
s:=s+t;
i:=i+1;
until i>n;
writeln('сумма ряда: ',s:7:5);
end.

0 0

4 года назад

Какое количество информации (с точки зрения алфавитного подхода) содержит двоичное число 101?

александра алекса...

в двоичном коду алфавит состоит из 2 чисел 0 1, всего 3 цифры, значит 3*1бит=3бита

0 0

4 года назад

HELP!!! ЗА ПОДРОБНОЕ РЕШЕНИЕ ДАЮ 25 БАЛЛОВ Используя законы логики упростите выражения: A) (С l ( А & В) l(не А & В ) Б)

никитастепанов

1. Av¬B
2. A&BvC
3. A&B

0 0

4 года назад

25 БАЛОВ ЗА ОТВЕТ. Добрый день, прошу исправить мой код. Его суть заключается в нахождении чисел Армстронга в интервале от 100 д

stelsy [304]

Более изящное решение :)

Проблема в строке c:= (b*b*b);
Ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. Нужно проверять число а: если от 100 до 999, то выполняем c:= (b*b*b); а если от 1000 до 9999, то выполняем c:= (b*b*b*b);

Код ниже работает и выдаёт результат:
число Армстронга ==> 153
число Армстронга ==> 370
число Армстронга ==> 371
число Армстронга ==> 407
число Армстронга ==> 1634
число Армстронга ==> 8208
число Армстронга ==> 9474

****************************************************************
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==> ', a);
end;
end.

0 0

3 года назад

Дан массив целых чисел. Сдвинуть его циклически на один элемент влево. _____ Помогите составить Паскаль шпион гамму, пожалуйста

Femidagod

Var num : integer;

....

num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;

0 0

4 года назад