Дано слово из 12 букв. Поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть на месте первой, третью треть на месте второй.

Program buldog78;
var s,s1,s2,s3:string;
    i,h:integer;
begin
write(S=);
read(s);
h:=length(s) div 3;
for i:=1 to h do
s1:=s1+s[i];
for i:=h+1 to h*2 do
s2:=s2+s[i];
for i:=h*2+1 to h*3 do
s3:=s3+s[i];
writeln(S=,s2,s3,s1);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.