Question

Посчитать количество четных чисел в промежутке от n до 100. С помощью програмированния на языке Pascal

Answer 1

PascalABC.NET 3.2
begin
  write(readInteger.To(100).Count(x -> not Odd(x)));
end.

Пример ввода: 98
Пример вывода: 2

Answer 2

Var
   n:integer;
begin
   Write('n = ');ReadLn(n);
   if n mod 2 = 0 then Write((Abs(n-100)+1) div 2+1)
   else Write(Abs(n-100) div 2+1)
end.