Question

Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. Если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до получения длины, кратной семи.

Answer 1

Var
  i,j,n:integer;
  s,a,t:string;
begin
write('Введи текст: ');
readln(s); 
n:=length(s); 
i:=n mod 7; 
if i>0 then
    begin
    i:=7-i;
    s:=s+copy('корвет',1,i);
    n:=n+i;
    end;
for i:=1 to n do
   begin
   a:=a+s[i];
   if i mod 7=0 then
     begin
     for j:= 7 downto 1 do
        t:=t+a[j];
     a:='';
     end
   end;
writeln(t)
end.

Можно использовать специальную функция переворота строки. Будет чуть короче
var
  i,j,n:integer;
  s,a,t:string;
begin
write('Введи текст: ');
readln(s); 
n:=length(s); 
i:=n mod 7; 
if i>0 then
    begin
    i:=7-i;
    s:=s+copy('корвет',1,i);
    n:=n+i;
    end;
for i:=1 to n do
   begin
   a:=a+s[i];
   if i mod 7=0 then
     begin  
     t:=t+ReverseString(a);
     a:='';
     end
   end;
writeln(t)
end.

Sub z()
s = InputBox("Введи текст")
n = Len(s)
i = n Mod 7
If i > 0 Then
    i = 7 - i
    s = s & Mid("корвет", 1, i)
    n = n + i
    End If
For i = 1 To n
    a = a + Mid(s, i, 1)
    If i Mod 7 = 0 Then
          t = t + StrReverse(a)
          a = ""
          End If
Next i
MsgBox (t)
End Sub