Задание:
Дано слово из 12 букв. Поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть на месте первой, третьютреть на месте второй.
Решение:
Program buldog78; var s,s1,s2,s3: string; i,h: integer; beginwrite ('S='); read (s); h: =length (s) div 3; for i: =1 to h dos1: =s1+s[i]; for i: =h+1 to h*2 dos2: =s2+s[i]; for i: =h*2+1 to h*3 dos3: =s3+s[i]; writeln ('S=',s2,s3,s1); end.
Знаете другой ответ?