Собственно, сабж:
program prg201907;
{$codepage UTF8}
uses cwstring, math;
var
s1: UnicodeString = 'Як-строитель чудит набирая звонком от плейера юрко "WAVE FULL OF 8 RUSTY CHECKED MULTIPLEX IMAGES!", однако.';
s2: UnicodeString = '';
indx: Integer;
function getdata1(x: Integer): Integer;
begin
case (x) of
$0, $2f: getdata1 := Floor64(1.340425531914894 * x + 1);
$1, $12, $14, $1c, $23, $25, $33, $38, $3e, $45, $47, $4d: getdata1 := $d;
$2, $a, $1a, $1e, $20: getdata1 := $1e;
$3..$4: getdata1 := $1d + x;
$5, $9, $19: getdata1 := $14;
$6, $8: getdata1 := Floor64($1d - $5 * x / $2);
$7, $10: getdata1 := $19;
$b, $d: getdata1 := $10 + x;
$c, $f: getdata1 := Floor64(7 * x / $3 - $7);
$e, $15, $51: getdata1 := $1a;
$11, $21, $50: getdata1 := $b;
$13, $1f: getdata1 := $4;
$16, $17: getdata1 := $94 - $6 * x;
$18, $1b: getdata1 := $c * x - $11a;
$1d, $22, $27, $2c: if x < $27 then getdata1 := $9 * x - $103
else getdata1 := $9 * x - $120;
$24, $46: getdata1 := $8;
$26, $5a: getdata1 := $4e;
$28, $35, $59: getdata1 := $5c;
$29, $31: getdata1 := $42;
$2a, $30: getdata1 := $3;
$2b, $4b, $58: getdata1 := $44;
$2d, $5c: getdata1 := $45;
$2e, $49, $5b: getdata1 := $47;
$32, $37, $3d: getdata1 := $64;
$34, $39: getdata1 := $1c9 - $7 * x;
$36, $40, $43, $55, $56: getdata1 := $36;
$3a, $3b: getdata1 := $ab - $2 * x;
$3c, $4c: getdata1 := $52;
$3f, $42: getdata1 := Floor64($168 - $d * x / $3);
$41, $54: getdata1 := $46;
$44, $48: getdata1 := Floor64($f * x / $2 - $1c2);
$4a, $4e: getdata1 := Floor64($a17 / $2 - $41 * x / $4);
$4f, $52: getdata1 := x - $40;
$53, $57: getdata1 := Floor64($8fd / $4 - $17 * x / $4);
else getdata1 := -1;
end;
end;
function getdata2(x: Integer): Integer;
begin
case (x) of
$0..$7, $9..$a, $c..$1d, $1f..$20, $22..$33, $35..$5c: getdata2 := $1;
$8, $34: getdata2 := $4;
$b, $1e, $21: getdata2 := $2;
else getdata2 := -1;
end;
end;
begin
for indx := $0 to $2c do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
s2 := s2 + chr($a);
for indx := $2d to $53 do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
s2 := s2 + chr($a) + chr($a);
for indx := $54 to $5c do s2 := s2 + copy(s1, getdata1(indx), getdata2(indx));
writeln(s2);
end.
Суть ребуса: какой конкретно текст в UTF-8 выводит эта программа?
