[Чиполин777]

Помогите написать программу, которая выводит заданный ранее текст наоборот и с пробелом через 5 символов + если в последнем пинтете не хватает символов до пяти, то программа заполняет их рандомно!
Например: чемпион = ноипм ечров
Спасибо заранее!

[lmikle]

1. реверс строки - есть функция ReverseString
2. Дальше добиваем случайными символами до длинны, кратной 5.
3. Дальше вставляем пробелы.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function SmartReverse(AText : String) : String; var   Buf : String; begin   // 1   Buf := ReverseString(AText);     // 2   While (Length(Buf) mod 5) <> 0 Do     Buf := Buf + Chr(Random(33) + Ord('а')); // а - русская       // 3   Result := '';   While Buf <> '' Do     Begin       Result := Result + Copy(Buf,1,5);       Buf := Copy(Buf,6,Length(Buf)-5);       If Buf <> '' Then Result := Result + '  ';     End; end;

ЗЫ. Код не проверял.

[Чиполин777]

щас проверю!

[lmikle]

ну логику я написал, там сам поправишь, если что.