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

Question

Лев Басов

Информатика

31 июля, 14:37

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Полина Алексеева · Answer 1

program 1

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.