Ответ:
1.
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
X = 113₁₀ - 13₁₀ = 100₁₀
100₈ = 0*8⁰ + 0*8¹ + 1*8² = 64₁₀
2.
0,98765
0,0000123
1359000
0,00019569120
Объяснение:
1 и 2 решил, 3 и 4 я не в теме, добавьте их отдельным вопросом, может кто ответит
1) <span>D:\Материалы к урокам\10 класс\Лекции\Введение
2) </span>make.cpp, name.c, age.pc, name.cpp >>> *a?e.*
Зависит от того, в чем проблема. Проверенный метод - перезагрузить, если не получается отключить питание. Если при последующих включениях также будет зависать, значит проблема кроется внутри компьютера. Возможная причина, нехватка оперативной памяти, либо, если компьютер давно не чистился от пыли, то его стоит почистить и возможно, это поможет. Еще одна возможная причина - если компьютер достаточно старый, то виной может быть износ процессора или других его компонентов. В данном случае зависит от ошибки, которую компьютер выдает при включение. Если её нет, значит проблема из списка выше
Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i]>=a[i+1] then b:=false;
if b
then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Пример:
5.3 1.4 0.2 6.1 5.7 0.8 3.4 6.2 6.2 8.4
Последовательность не возрастающая
var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.
