Д/З Тема: Тексты в компьютерной памяти 1. Какой объём памяти займёт приведённый ниже текст, если известно, что 1
символ в компьютерном алфавите равен 1 байту?
Happy New Year, dear friends!
2. С кодировочной таблицы ASCII раскодируйте заданный текст:
98 121 99 107 32 105 115 32 109 121 32 100 111 103 46
3. С кодировочной таблицы ASCI закодируйте заданный текст:
I was born in 1975.
4. Десятичный код буквы і в таблице кодировки равен 105. Что зашифровано
последовательностью десятичных кодов 108 105 102 101?
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!