Даны три числа x, y, z представляющие плоскости куба, также дано число n. Напишите функцию выдающую все возможные комбинации координат данных трех чисел, при условии что сумма x + y + z не должна равняться числу ограничению n. Для решения использовать list comprehensions.
Например: x, y, z = 1, 1, 2
n = 4
правильный вывод: [[2, 1, 2], [1, 2, 2], [2, 2, 1]]
Язык Python
:)

program raf105;

var i,j,del:integer;

begin

for i:=10 to 99 do

begin

 del:=0;

 for j:=1 to i do

 begin

   if (i mod j)=0

     then del:= del+1;

 end;

 if del=3

   then writeln(i);

end;  

end.

program raf105;

var a,b,c:integer;

x:boolean;

begin

write('Введите число: ');

readln(a);

write('Введите искомую цифру: ');

readln(c);

while a<>0 do

begin

 b:= a mod 10;

 if x=false

   then x:= b=c;

 a:= (a-b) div 10;

end;

if x

 then writeln('В ведённом числе есть искомая цифра')

 else writeln('В ведённом числе нет искомой цифры');

end.

a) 2

b) 1

c) 0

d) 1

e) бесконечно

Язык программирования PascalABC

сначала найдём общее количество возможных слов. поскольку на первое место можно поставить любую букву, кроме й, общее количество возможных слов равняется 5 · 5 · 4 · 3 · 2 · 1 = 600. теперь определим, сколько слов содержат сочетание ае. пусть слово начинается с ае, тогда количество вариантов равняется 1 · 1 · 4 · 3 · 2 · 1 = 24. пусть ае это вторая и третья буквы слова, тогда количество вариантов равняется 3 · 1 · 1 · 3 · 2 · 1 = 18. пусть ае это третья и четвёртая буквы слова, тогда количество вариантов равняется 3 · 3 · 1 · 1 · 2 · 1 = 18. в случае, когда ае это четвёртая и пятая буквы слова, количество вариантов равняется 3 · 3 · 2 · 1 · 1 · 1 = 18. в случае, когда ае это пятая и шестая буквы слова, количество вариантов равняется 3 · 3 · 2 · 1 · 1 · 1 = 18. таким образом, количество кодов, которые может составить матвей, равняется 600 − 24 − 18 − 18 − 18 − 18 = 504.

ответ: 504.