Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. Если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до п...
Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. Если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до получения длины, кратной семи.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы