9 lines
240 B
ObjectPascal
9 lines
240 B
ObjectPascal
|
##
|
||
|
|
var t:=|'iced', 'jam', 'plain'|;
|
||
|
|
var p:=t.CartesianPower(2).Where(t->t[0]<=t[1]);
|
||
|
|
write($'{p.Count}');
|
||
|
|
Print(':');
|
||
|
|
p.Println;
|
||
|
|
write((1..10).CartesianPower(3).Where(t->(t[0]<=t[1])and(t[1]<=t[2])).count);
|
||
|
|
Print(': Choices of 3 from 10');
|