Ответ:
1110101₂ = 117₁₀
213₈ = 139₁₀
4AF₁₆ = 1199₁₀
95₁₀ = 1011111₂
95₁₀ = 137₈
95₁₀ = 5F₁₆
Объяснение:
1110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 117₁₀
213₈ = 3*8⁰ + 1*8¹ + 2*8² = 139₁₀
4AF₁₆ = 15*16⁰ + 10*16¹ + 4*16² = 1199₁₀
95₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1011111₂
95₁₀ = 7*8⁰ + 3*8¹ + 1*8² = 137₈
95₁₀ = 15*16⁰ + 5*16¹ = 5F₁₆
Не совсем понятно, что Вы имеете в виду под "работой с текстом".
Простейшая работа с текстом - это его ввод. Такую работу можно было делать уже на компьютере ENIAC, куда можно было в качестве клавиатуры подключить телетайп.
Если "под работой с текстом" Вы подразумеваете первый текстовый редактор, то считается, что подобным редактором был Electric Pencil, появившийся в 1975-1977 гг. для компьютеров Альтаир.
В 1963 году Айван Сазерленд представил первый в мире графический редактор и систему автоматизированного проектирования Sketchpad.
Первая компьютерная музыка была воспроизведена Джеффом Хиллом на компьютере CSIRAC,
в 1951-го года в Сиднее.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Const
K = 13;
Var
A:array[1..K] of integer;
i,j:integer;
Begin
{Заполнение массива}
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
{Сортировка пузырьком}
For i:= 1 to K do
For j:= 1 to K-1 do
if A[j]>A[j+1] then Swap(A[j],A[j+1]);
{Вывод массива}
Write('Отсортированный массив: ');
For i:= 1 to K do
Write(A[i],' ')
End.
