Школоло / Говнокод #674 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
var c:longint;
begin
  c:= 12345;
  write( char(  ( ((( (c div 10000) mod 10 ) mod 2) + 1) mod 2) * (( (c div 10000) mod 10 ) +
         byte( '0' )) + (( (c div 10000) mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 1000)  mod 10 ) mod 2) + 1) mod 2) * (( (c div 1000)  mod 10 ) +
         byte( '0' )) + (( (c div 1000)  mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 100)   mod 10 ) mod 2) + 1) mod 2) * (( (c div 100)   mod 10 ) +
         byte( '0' )) + (( (c div 100)   mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 10)    mod 10 ) mod 2) + 1) mod 2) * (( (c div 10)    mod 10 ) +
         byte( '0' )) + (( (c div 10)    mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 1)     mod 10 ) mod 2) + 1) mod 2) * (( (c div 1)     mod 10 ) +
         byte( '0' )) + (( (c div 1)     mod 10 ) mod 2) * byte(' ') ) );

readln;
end.

На одном чайникофоруме попросили решить задачу на паскале: вывести все чётные цифры пятизначного числа. При этом нельзя пользоваться функциями, циклами и условными операторами. Вот, что у меня из этого получилось :)

Запостил: guest guest, (Updated )

Комментарии (0) RSS

Добавить комментарий

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓