Предмет: Информатика,
автор: buldog78
Дано слово из 12 букв. Поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть на месте первой, третью треть на месте второй.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: nastyakonkova0501
Предмет: Английский язык,
автор: alikhanoralov
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: yuryevna