Program srof;
var a,b:integer;
begin
writeln('введите последовательность чисел закончив её введением 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
if a mod 2 <>0 then
b:=b+a;
readln(a);
end;
writeln(b);
<span> end.</span>
Ну на паскале я тебе вот набросал а остальное никто за столько баллов делать точно не возьмется :
program z;
var i3,i:integer;beginread(i);i3:=i*i*i;i:=i3-(3*i);writeln(i);end.
Мое предложение - в массиве 20 на 20 храниться структура struct cell { int rabbit; // кол-во зайцев int* wolfs; // очки волков int* she_wolfs;// очки волчиц } очки предлагаю хранить умноженными на 10 во избежания проблем вещественным сравнением. Но есть одна проблема с задачей в целом. Это порядок ходов. Если в двух соседних клетках находятся заяц и волк, и первый ходит заяц, то волк может остаться голодным. Если же первый ходит волк - он то зайца может скушать. Поэтому, я предлагаю, что вначале ходят все зайцы, потом все волки - по очереди.
Алгоритм Линейный Потому-что Действие идет один за другим и отсуствует разделения на действия