8 lines
240 B
ObjectPascal
8 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');
|