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.
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
Компьютеры обычно не разрешают называть файлы с этими символами: " № # % ^ & | \ / ' ~
Если тебе не сложно отметь пож этот ответ лучшим
<span>Передатчик.</span>
<span>Устройств, имеющих в своём составе передатчик, с помощью которого происходит передача информации, много. </span>
<span>Все сетевые устройства для цифровой передачи данных, независимо от среды передачи данных - коммутаторы, роутеры, беспроводные точки доступа, - всё активное сетевое оборудование чего-нибудь передаёт и принимает (с помощью приёмника). </span>
<span>аналоговые устройства - радио, телепередатчики.</span>