Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.
Я не знаю прости я бы помог но не могу
Что должно входить в твой проект ???
Для перевод в двоичную просто делим на 2, а остаток записываем во вторую колонку. Когда остается единица, то выносим ее так же во второй столбик и читаем СНИЗУ ВВЕРХ.
Для перевод из двоичной в десятичную мы над числом начиная с правого проставляем цифры, начиная с нуля. Это будет степенью двойки, на которую будет умножаться соответствующая цифра двоичного представления числа. Просто складываем, вычисляем.
Для примера я взяла число 123.