пятница, 7 октября 2016 г.

#1281. "А ваш язык так может?" №3



INTEGER VAR X
X := Random ( 0 10 )

ANY VAR Value

Value :=
 CASE X
  .equal 1
   10
  .equal 2
   100
  .equal 3
   1024
  .equal 4
   2048
  .greater 6
   12345
  .less 8
   0
  DEFAULT
   1974
 ; // CASE X

Value .print

Комментариев нет:

Отправить комментарий