Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test_03
//fpc 3.0.4 program test_03; type tsvet=(blue, green,yellow, red,orange,cyan,white,black,brown); color=set of tsvet ; var clr:tsvet; vse:color; begin clr:=cyan; vse:=[blue, green,yellow, red,orange,cyan,white,black,brown]-[cyan,orange]; if clr in vse then case clr of blue: write('blue belong vse '); green: write('green belong vse'); yellow: write('yellow belong vse'); red: write('red belong vse'); cyan: write('cyan belong vse'); orange: write('orange belong vse'); white: write('white belong vse'); black: write('black belong vse'); brown: write('brown belong vse'); end else case clr of blue: write('blue not belong vse '); green: write('green not belong vse'); yellow: write('yellow not belong vse'); red: write('red not belong vse'); cyan: write('cyan not belong vse'); orange: write('orange not belong vse'); white: write('white not belong vse'); black: write('black not belong vse'); brown: write('brown not belong vse'); end ; end.
run
|
edit
|
history
|
help
0
Operaciones 2 grado
Task 1
record as a procedure argument
две рядом стоящие одинаковые цифры у числа
Пиріжки
zad27-optimal
Homework 5
Kim
test25
for for fib