Var
i,j,n:integer;
s,a,t:string;
begin<span>
write('Введи текст: ');</span><span>
readln(s);</span>
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;<span>
for i:=1 to n do
</span><span> begin
</span><span> a:=a+s[i];
</span><span> if i mod 7=0 then
</span><span> begin
</span><span> for j:= 7 downto 1 do
</span><span> t:=t+a[j];
</span><span> a:='';
</span><span> end
</span> end;<span>
writeln(t)
</span><span>end.
Можно использовать специальную функция переворота строки. Будет чуть короче
var
i,j,n:integer;
s,a,t:string;
begin
write('Введи текст: ');<span>
readln(s);</span>
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;<span>
for i:=1 to n do
</span><span> begin
</span><span> a:=a+s[i];
</span><span> if i mod 7=0 then
</span> begin<span>
</span><span> t:=t+ReverseString(a);
</span><span> a:='';
</span><span> end
</span> end;<span>
writeln(t)
</span><span>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)
<span>End Sub</span></span></span>
В 17 веке( 1623 год) ▬ немецкий учёный Вильгельм Шиккард изобрёл " Считающие часы ".
