Решить ! выполните операцию сложения над двоичными числами: а) 101010+1101; б) 1010+1010; в) 10101+111. с решением в столбик .

55, 12, 27

Объяснение:

+42 +6 +20

13 6 7

55 12. 27

Судя по всему что то навернулось под капотом. Проверь все контакты, померяй напрягу мультиметром на БП*, ну и на крайняк тащи в сервис

Объяснение:

*Напряжение БП меряют соединяя контакты в разъёмах MOLLEX или 8+pin следующим

На проводах БП - Чёрный провод - ЗЕМЛЯ. К Этому контакту подключаем землю мультиметра. Далее соединяем:

Земля - Жёлтый провод - линия +12 (Номинал - 12 V, отклонение - +- 0.5 V)

Земля - Красный - Линия +5 (Номинал - 5 V, Отклонение - +- 0.25 V)

Земля - Оранжевый - Линия +3.3 (Номинал - 3.3 V, Отклонение - +- 0.3 V)

** Если комп работает всего 3-5 сек, то сначала подключай мультиметр к нужной линии а потом включай комп.

//1
var
  A: array [1..10] of integer;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(81)-40;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if i mod 2 = 0 then A[i] := sqr(A[i])
  else A[i] := sqr(i);
  write(A[i], ' ');
end;
end.

//2
var
  A: array [1..10] of real;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(41)-20;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if A[i] < 0 then A[i] := sqr(A[i]);
  if A[i] > 0 then A[i] := sqrt(A[i]);
  write(A[i]:0:2, ' ');
end;
end.

//3
var
  A: array [1..200] of real;
  i, N: byte;
  sum: real;
begin
  write('Введите N = ');
  readln(N);
  sum := 0;
  for i := 1 to N do
  begin
    write('З/П за ', i ,' месяц = ');
    readln(A[i]);
    sum := sum + A[i];
  end;
  writeln('Общий доход = ', sum:0:2);
end.