Почему программы-переводчики успешно переводят деловые документы, но не годятся для перевода текстов художественных произведений?

2, 4, 8, 16 (двоичная (10000), четверичная (100), восьмеричная (20), шестнадцатеричная (10))

посадка дерева: 1.купить семя.

2.найти место для посадки.3.вскопать яму.4.посадить семя.5.закопать яму.переход улицы по светофору: 1.подойти к дороге (к светофору)2.посмотреть на цвет, который сейчас горит.3.дождаться нужного цвета.4.перейти дорогу.5.отправиться дальше.

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.