1-й проход алгоритма:
ФТОР - длина 4 (чётное), значит вставляем в середину А - получаем ФТАОР. Теперь замена букв на следующие по алфавиту - ХУБПС (это результат первого прохода).
2-й проход алгоритма:
ХУБПС - длина 5 (нечётное), значит в начало добавляем Б - получаем БХУБПС. Теперь замена букв на следующие по алфавиту - ВЦФВРТ.
Ответ: ВЦФВРТ
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>