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

Question

Устина

14 августа, 22:57

+4

Ответы (1)

Знаете ответ?

Валерьян · Answer 1

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.