Разделить строку на три части и перемешать их - Turbo Pascal

Формулировка задачи:

Дана произвольная строка, разделить ее на 3 части и поменять их таким образом 2-3-1 Кто может подскажите пожалуйста)) Заранее спасибо!

Код к задаче: «Разделить строку на три части и перемешать их - Turbo Pascal»

textual
var
 S: String[30];
begin
 S := '0123456789АБВГДЕЖЗИКqwertyuiop';
 WriteLn(S);
 S := Copy(S, 11, 10) + Copy(S, 21, 10) + Copy(S, 1, 10);
 WriteLn(S);
 ReadLn;
end;

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы