<u>1. Программа в одной из современных версий Паскаля:</u>
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.
<u>Тестовое решение:</u>
Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот
<u>2. Программа в "школьной версии"</u>
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
s:string;
i:integer;
begin
Write('Исходная строка: '); Readln(s);
for i:=Length(s) downto 1 do
if not(s[i] in legal) then Delete(s,i,1);
Writeln('Результат: ',s);
end.
Минимальное 6, а максимальное не ограниченно
Количество знаков в коде называется длиной кода
а что касается самого кода то там можно понимать под кодом вообще все что угодно- буквы в тексте, цифры в числе, генетический код, двоичный компьютерный код и так далее, любой шифр придуманный за 5 минут так же будет считаться кодом если к нему, конечно же, есть ключ(для расшифровки)
Для шифрования слово слева направо разбивается на части по три буквы, после чего первая и третья буква в каждой части меняются местами. Если в последней части только две буквы, они также меняются местами.
Дешифрование производится аналогично.
<span>НИМАРЕЛ - МИНЕРАЛ
ЛЕТОФЕН - ТЕЛЕФОН
НИЛКЙЕА - ЛИНЕЙКА
НОМОТИР - МОНИТОР
РАКДНАША</span> - КАРАНДАШ
Program t1;
Var a: array[1..n,1..m] of integer;
i,n,m,max,s: integer;
Begin
Read (n,m);
S:=0;
Max:=0;
For i:=1 to n do
Begin
S:=s+a[i];
End;
For i:=1 to m do
Begin
If (max>a[i]) then
Max:=max
Else max:=a[i];
End;
Write (s);
Write (max);
End.
