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

Question

Информатика: Посчитать количество четных чисел в промежутке от n до 100. с програмированния на языке pascal

Kira2347 · Answer

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....