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>
224
Полный адрес маски: 255.255.224.0
Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого
1) Источник: учебник Приемник: школьник.
2) Источник: письмо Приемник: бабушка.
3) Источник: будильник Приемник: мальчик.
7) Источник: газета Приемник: человек.
8) Источник: лист изменений Приемник: ученики. ??
10) Источник: знак Приемник: водители
11) Источник: билет Приемник: мальчик.
Все эти ситуации однотипные, односторонние по типу. Хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится
9) Источник: диспетчер. Приемник: пассажиры. ??
Вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. Например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.
4) Источник: Таня, Лена Приемник: Таня, Лена. Двусторонний (и так все понятно)
5) Источник: учитель Приемник: класс
Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп
6) Источник: регулировщик Приемник: водители, пешеходы
Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.
A) Запишите элементы действия, примененные в форматирование.
Адреса ячеек Форматирование
А1-А7:Этот элемент действия называется автозаполнение порядкового номера в Excel
Е2-Е7, С7-Е7.А этот элемент действия называется автозаполнением суммы тоже в Exel
