Задача про кроликов и гусей.

[Ksedom]

Привет всем. Помогите, пожалуйста, решить задачу.
"У гусей и кроликов вместе 64 лапы. Составить программу для вывода на экран всех возможных сочетаний конечностей гусей и кроликов."
Надо решить задачу в VBA.
Будьте добры, помогите, буду благодарен. Зарание спасибо

[Mad_Cat]

код паскаль--переводите

for i:=0 to 32 do
for j:=0 to 16 do
if (2*i+4*j)=64 then writeln(i,' гусей ',j,' кроликов');

[Smitt&Wesson]

Задачка очень простая.
FOR I=0 TO 15
GUS = (64-I*4)/2
PRINT "Кролики" I+1, "Гуси" GUS
NEXT I
Пояснение:
Поскольку у кроликов, ног вдвое больше, чем у гусей, мы из общего количества ног, вычитаем ноги кроликов и делим их пополам т.к. у гуся две ноги.

[Ksedom]

Спасибо всем.

[Mad_Cat]

Smitt при i=0 будет 0 кроликов и 32 гуся у тебя же выдаст 1 кролик и 32 гуся так что цикл надо гнать до 16 и выводить просто i