\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
Берем БРА. Длина нечетная - удаляем первый символ, остается РА. Сдвигаем буквы - получаем СБ.
Берем СБ. Длина четная - вставляем в середину А, получается САБ. Сдвигаем буквы - получаем ТБВ.
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс