Question

Текст перевернуть, убрать пробелы и вставить случайным образом.Pascal ABC​

Answer 1

Ответ:

program Text;

uses

 Windows;

var

 s, r: String;

 i, j, c: Integer;

begin

//  SetConsoleCP(1251);        // если русские буквы нормально не отображаются - попробуйте эти две команды

//  SetConsoleOutputCP(1251);

 WriteLn ('Введите строку: ');

 ReadLn (s);

 r := '';

 c := 0;

 for i := Length (s) downto 1 do begin

   if s [i] <> ' ' then

     r := r + s [i]

   else

     Inc (c);

 end;

//  WriteLn (r); // вывод промежуточного результата

 Randomize;

 for i := 1 to c do begin

   j := Random (Length (r));

   Insert (' ', r, j);

 end;

 WriteLn (r);

 ReadLn;

end.