При делении нацело просто отбрасывается дробная часть в ответе, не надо мудрить ничего)
Например: 15 / 10 = 1.5 (в математике), тогда 15 \ 10 = 1 (просто отбросили дробную часть).
Ещё примеры: 23.6 \ 7 = 3 (23.6 / 7 = 3.3714...), 14 \ 2 = 7 (14 / 2 = 7.0), 25.68 \ 7 = 3 (25.68 / 7 = 3.6685...).
Вывод: в примере 14 \ 2 = 2 просто допущена ошибка :)
Может это
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин:
Перед делением компоненты действий округляются до целых чисел: в том случае если ты создаешь переменную типа int.
В частном отбрасывается остаток: если ты создаешь переменную типа double, в этом случае результат будет наиболее точным