Program z2; Var n,i:integer; Begin Write('N = '); readln(n); while n>0 do begin write(n,' '); n:=n-1; end;End.
Пусть будет х - фазанов и у - кроликов, тогда 2х - ног у фазанов и 4у - ног у кроликов. Так как у всех по одной голове, можем составить систему уравнений: система: х+у=35 и 2х+4у=94; пешим систему подстановкой: х=35-у; 2*(35-у)+4у=94; 70-2у+4у=94; 2у=24; у=12; х=35-12=23. Ответ: 23 фазана и 12 кроликов.