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

Question

Светуха

21 февраля, 04:41

+2

Ответы (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.