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.
Смотря для чего он нужен, если для офиса сойдет стандартный встроенный, а если для игр, то лучше внешний,
И да, все винчестеры НDD
Ну можно перевести в 10ю систему сначала
12 ? 2 ? 2 = 11
12 - 2 / 2 = 11