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

Представить отрицательное число - 382(10) в двухбайтовом представлении в памяти компьютера. сначала переводим модуль числа в двоичную систему счисления получаем прямой код, затем обратный (нули меняем на единицы, а единицы на нули), к обратному коду + 1, получаем дополнительный код. 10 - десятичная система счисления.

👇
Ответ:
Bazzaevat
Bazzaevat
16.09.2022

101111110(2)

обратний :

0100000011

4,4(22 оценок)
Открыть все ответы
Ответ:
506010
506010
16.09.2022
Program Project1;

var m:array of integer; n, i, old, Simple:integer;

function nod (var a,b: integer): integer;
var c: integer;
begin
  repeat
    if a > b then
      a := a mod b
    else
      b := b mod a;
  until (a = 0) or (b = 0);
  nod := a + b;
end;

function IsSimple(const n: Integer): Boolean;
var i: Integer;
begin
  IsSimple:=True;
  for i:=0 to Length(m)-1 do begin
    if (n mod m[i])=0 then begin
      IsSimple:=False;
      Break;
    end;
  end;
end;

begin
  repeat
    write('n: '); readln(n);
    SetLength(m, Length(m)+1);
    m[Length(m)-1]:=n;
  until n<=0;
  SetLength(m, Length(m)-1);
 
  old:=nod(m[0], m[1]);
  for i:=2 to Length(m)-1 do
    old:=nod(old, m[i]);
  Writeln('Nod: ', old);

  simple:=0;
  for i:=0 to Length(m)-1 do
    if IsSimple(m[i]) then
      inc(simple);
  Writeln('Simple: ', simple);

  readln;
end.

Нахождение НОД всех чисел это нод(нод(А, Б), В) и т.д. Остальное думаю понятно.
4,6(100 оценок)
Ответ:
Белочка0107
Белочка0107
16.09.2022
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.
4,4(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ