Решите задачу по программированию (паскаль авс)

Question

Решите задачу по программированию (паскаль авс)

---

Comments

Напечатай, ибо почерк не разборчив

---

в клетке сидят фазаны и кролики, вместе у них 64 дапы. Указатьвсе возможные сочетания кроликов и фазанов

---

дапы?

---

лапы

Answer 1

Program lapi;
Var
Lap,sh,i:real;
Begin
i:=1;
Lap:=64;
Sh:=31;
While i <> 32 do
Begin
Writeln('Либо ',i,' кроликов и ',sh,' фазанов.');
i:=i+1;
sh:=sh-1
End;
End.