Ответ:
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 я не в теме, добавьте их отдельным вопросом, может кто ответит
Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>
Var
a,b,c,d: integer;
begina:=-6;
b:=2;if a>b then
c:=a-b
else
c:=a*b;
d:=1;while c<a do begin
d:=d+1;
c:=c+1;
end;
writeln('Значение d = ',d,'.');
writeln('Значение c = ',c,'.');
end.
Паскаль. d = 7. c = -6.