Подсчитать количество положительных четных элементов числового ряда от 555 до 765

В Паскале за целочисленное деление отвечает оператор div. При использовании оператора div дробная часть будет отброшена.

С оператором mod при делении с остатком в результате отбрасывается как раз целая часть.

Program Primer1;

Var

i, k: integer;

begin

k: = 0;

for i: = 555 to 765 do { в данном цикле счет начинается от 555 до 765 }

begin

if (i mod 2 = 0) then k: = k + 1; {если число четное, то остаток от деления равен 0, поэтому считаем}

end;

writeln (k);

end.