 Определи кто из бабочек где развлекался и какие цветы видел, если известно следующее: На концерт летала - id1863364820201003 от Fosa1 03.10.2020 22:37

Question

Информатика:  Определи кто из бабочек где развлекался и какие цветы видел, если известно следующее: На концерт летала не Зизи, а на бал не Коко. Пипа не была на выставке, а васильки видела не Лулу. Выставка проходила в лесу, а вьюнки растут на лугу, где была ярмарка. Васильков очень много там, где проходил бал, но Пипа туда не попала, она в это время была у реки. Вьюнками любовалась Коко, а лютиками Пипа.

Fosa1 · Accepted Answer

ответ: 9504

var steps := 12; // За кол-во ходов
var Xend := 6; // В точку с координатой X
var Yend := 4; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin
if step = 0 then
vars += (X = Xend) and (Y = Yend) ? 1 : 0
else
begin
Find(step - 1, X + 1, Y );
Find(step - 1, X - 1, Y );
Find(step - 1, X , Y + 1);
Find(step - 1, X , Y - 1);
end;
end;
begin
Find(steps, 0, 0);
Print(vars);
end.

MOGZ ответил