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

Question

Информатика

Андрейка

15 января, 18:13

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

+3

Ответы (1)

Знаете ответ?

Светуха · 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.