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

3. переведите 100 килобайт в биты, байты, мегабайты, гигабайты.
4. в корзине лежат 15 черных и 15 белых шаров. сколько информации несет сообщение о том, что
достали черный шар?
5. сообщение, записанное буквами 128-символьного алфавита, содержит 30 символов. какой объем
информации оно несет?
6. книга содержит 400 компьютерных страниц, на каждой странице 20 строк, в каждой строке 40
символов. определить информационный объем книги, если мощность компьютерного алфавита 256
символов (8- битная кодировка).
7.переведите из десятичной системы счисления число 127 в пятеричную и восьмеричную системы
счисления.
8. переведите в десятичную систему счисления числа 1002 и 10b16-
9. постройте таблицу истинности для высказывания а лс
10.постройте таблицу истинности для высказывания васva
11. у исполнителя букашка две команды:
1. прибавь 2,
2. вычти 5.
первая из них увеличивает число на экране на 2, вторая - уменьшает его на 5. программа для
букашки — это последовательность команд. какие различные числа можно получить из числа
программы, которая содержит ровно 2 команды?
12. у исполнителя калькулятор две команды, которым присвоены номера:
1. прибавить 2​

Показать ответ
Ответ:
anjelanartokova
anjelanartokova
14.02.2020 15:20
Var
  i, n, s: longint;
  d, k: integer;

begin
  i := 3; k := 0;
  repeat
    s := 1;
    for d := 2 TO Trunc(sqrt(i)) do
    begin
      n := (i div d);
      if n * d = i then s := s + d + (i div d);
    end;
    if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
    if s = i then k := k + 1;
    i := i + 1
  until (k = 3);
  Writeln('Третье совершенное число равно ',s)
end.

Тестовое решение:
Третье совершенное число равно 496

const
  k=35; { k-е по порядку простое число }

var
  i,j,n,m:integer;

begin
  n:=1; i:=1;
  repeat
    j:=2;
    m:=round(sqrt(i));
    while (i mod j <>0) and (j<=m) do j:=j+1;
    if j>m then n:=n+1;
    i:=i+1
  until (n=k);
  Writeln(i-1)
end.

Тестовое решение:
137

var
  n, d1, d2, d3: integer;

begin
  Write('Введите трехзначное число ->');
  Readln(n);
  d1 := (n div 100);
  d2 := ((n mod 100) div 10);
  d3 := (n mod 10);
  if (d1 * d2 * d3 in [100..999]) then
    Writeln('Произведение цифр трехзначное')
  else Writeln('Произведение цифр не трехзначное')
end.

Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное

*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
% - операция остатка от целочисленного деления    
0,0(0 оценок)
Ответ:
ggggdcdxf
ggggdcdxf
01.10.2020 19:15

1. Norton System Doctor, Norton UnErase, Norton Disk Doctor, Norton WinDoctor. Optimization Wizard, Speed Disk. Norton Registry Tracker, Norton Registry Editor

2. Основным требованием архивного копирования файлов является сжатие файлов с целью уменьшения занимаемого архивной копией пространства на диске

3. Компьютер начинает виснуть, выскакивают глобальные ошибки, не запускаються приложения, очень слабо ходит по сайтам.

4. Ограничение свободы (до 4 лет);

Принудительная деятельность (до 4 лет);

Лишение свободы (до 4 лет) с одновременным денежным взысканием до 200 тыс. руб. или з/п за период до полутора лет.

5. Основным средством защиты компьютера является антивирусная программа, поэтому для обеспечения безопасности первым делом установите ее, , Новые вирусы появляются каждый день, поэтому антивирус необходимо регулярно обновлять, , Лучше использовать платную версию антивируса, так как она имеет больше возможностей.

Обновите операционную систему и браузер до последней версии, ведь именно через их «дыры» большинство вирусов попадают в компьютер. Делайте это регулярно или установите автоматическое обновление.

Включите брандмауэр Windows или установит любой другой, он оповестит о подозрительной активности программ, которые могут быть вирусами.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота