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

Во сколько раз увеличится число 10101010111111100101010102, если справа к нему приписать три нуля. ответ запишите в десятичной системе счисления

👇
Ответ:
sehya72
sehya72
13.03.2022
Если приписать ноль справа к числу в системе счисления по основанию n, то он увеличит это число в n раз. Два нуля - в n² раз, три - в n³ раз и т.д.
В нашем случае система счисления двоичная, т.е. по основанию 2, поэтому число увеличится в 2³ = 8 раз.
4,5(65 оценок)
Ответ:
Nalasinskaya
Nalasinskaya
13.03.2022
ответ - увеличится в 8 раз. Т.к. Двоичная запись числа отражает степень числа 2. При добавлении каждого разряда число увеличивается в два раза. При добавлении 1 разряда в 2 раза. При добавлении 2-х разрядов в 2*2=4 раза. При добавлении трех разрядов в 2*2*2=8.
4,7(33 оценок)
Открыть все ответы
Ответ:
romapotseluiko
romapotseluiko
13.03.2022

program z1;

var i,n,s:integer;

a : array [1..100] of integer;

begin

write ('Введите количество элементов n < 100: ');

readln(n);

write ('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (21)-10;

write(a[i]:5)

end;

writeln;

s:=0;

for i:= 1 to n do

if a[i]<0 then s:=s+a[i];

writeln ('s = ',s)

end.

Объяснение:

Ошибки

1) нет названия программы и ; после неё

2) в описании массива 3 точки (надо 2)

3) нет кавычек для ввода текста в первом write

4) нет ; после readln (n)

5) нет : при присваивании i в цикле for i = 1

6) нет форматированного вывода или добавленного разделителя в write(a[i])

7) нет ; после первого end

8) нет ; после s:=0

9) нет кавычек для ввода текста в writeln (s = ,s)

10) нет точки после последнего  end

Условие

for i:= 1 to n do (перебираем весь массив)

if a[i]<0 then s:=s+a[i]; (если элемент меньше 0, то увеличиваем переменную s (сумму) на него)

4,5(37 оценок)
Ответ:
lizayka2001
lizayka2001
13.03.2022

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

4,5(67 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ