Дано слово из 12 букв. Поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть на месте первой, третью треть на месте второй.
Answers & Comments
blowberryninja
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.
Answers & Comments
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.