Const
key = 3;
var
i: integer;
s: string;
function Encode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) + key);
Encode := s;
end;
function Decode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) - key);
Decode := s;
end;
begin
write('Введите строку данных - ');
readln(s);
writeln('Выберите действие');
writeln('1 - Закодировать');
writeln('2 - Раскодировать');
readln(i);
case i of
1: s := Encode(s, key);
2: s := Decode(s, key);
end;
Writeln(s);
end.
Ответ:
По горизонтали
2. Электронное устройство, преобразующее графический образ, хранящийся, как содержимое памяти в форму, пригодную для дальнейшего вывода на экран монитора
3. Печатающее устройство
4. Жаргонное именование аппаратного обеспечения
5. Устройство вывода графической информации
7. Коробка для содержания внутренностей компьютера
8. Центральное обрабатывающее устройство
9. Устройство вывода аудио информации
По вертикали
1. Система охлаждения
2. Долговременная память компьтера
5. Устройство для ввода звуковой информации
6. Устройство для чтения накопителей
Объяснение:
Английский алфавит нужно вспомнить! ...EFGHIJKLMNOPQRS...
В формуле =(K$12+S42)*5 используется относительная (S42) и смешанная (K$12) адресация. Ячейка M8 расположена на 3 строки ниже и на 3 столбца левее ячейки P5, значит адрес K$12 был получен из адреса H$12, а адрес S42 - из адреса P45.
Итак, в ячейке M8 была формула =(H$12+P45)*5
3 вариант, все остальное рассуждение.
//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0
var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;
begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
<span>end.
//Слово Программа она кодирует как </span>11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-