Ответ:
По формуле 
Минимальная возможная длина 4 бита или 4 символа
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
Writeln(s.Inverse)
end.
<u>Пример</u>
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
Write('Введите два символа СЛИТНО для сравнения их частоты: ');
var ab:string;
Readln(ab);
var a:=ab[1];
var b:=ab[2];
var ka:=0;
var kb:=0;
for var i:=1 to s.Length do
if s[i]=a then ka+=1
else if s[i]=b then kb+=1;
if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
else
if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
else
if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.
<u>Пример</u>
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о
VAR
A: ARRAY [1..30] OF INTEGER;
i, max: INTEGER;
BEGIN
FOR i := 1 TO 30 DO READ (A[i]);
max := -1001;
FOR i := 1 TO 30 DO
IF (A[i]<0) AND (A[i]>max) AND (A[i] MOD 10 <>3) THEN
max := A[i];
WRITELN (max);
END.
Пример реализации на Excel.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Сами формулы можно увидеть в строке формул.
Var S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
S:=S+i;
WriteLn('S = ',S);
End.
