2. табина ascii была разработана для кодирования символов,
ию
ию
о) | it
алесо
66 10
011
6
ср
to
оли
сі 100
1000
ico19
00
4
2010
110
010100
19001
010016
011001
011010
4) 9/1/fi f|
ojot 10
911011
обосо
011001
0101010
610
10
0100
опис
it
1000
осоо
само
осоо
it in
00cital
001019
000101
0010
oftat
110
ісі
of 100
dette 10
е 50
ло
5100
1
01001
100 і 10
босо 11
olitsoo
com.au
жолоо
ito 10
010110
по 100
10
voor0010
оороо
обор
1
locoi10
01000
0 000
отно
01001
000 100
0 000
ofia 10
01
оо
o10010
ood
бірі
01101100
1
00
от 11
10
010
ііі
21 закодируйте слово «поmе» с таблицы ascii, представьте слово в десятичном
виде,
2.2. представьте слово «home» в двоичном виде,
И так первый это перевод из восьмеричную в двоичную: 2 - 010, 3 - 011 и 5 - 101 = 010010101011011 но первое число 0 не входи поэтому убираем и получаем 10010101011011.
Второй это перевод из двоичную в восьмеричную: начинаем с конца - 011 это число 3(восьмеричная), 101 - 5 и 010 - 2, но учитывайте если остались числа 10 то в начале вписываем число 0 получим 010, в итоге 22533.
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.