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

Question

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

Answer 1

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.