Помогите с информатикой работа с Pascal . Посчитать количество четных чисел в промежутке...

Question

Помогите с информатикой работа с Pascal . Посчитать количество четных чисел в промежутке от 1 до n

Comments

n = 3(3+1)/2 = 21 2 3 - разве тут два чётных числа?

Answer 1

Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Количество чётных чисел среди [1..',n,']: ',n div 2);
End.