Помогите, пожалуйста Напишите эффективную программу, которая по двум данным натуральным...

Question

Помогите, пожалуйста Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество нечетных натуральных чисел на отрезке [a,b] (включая концы отрезка). Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. Проверять входные данные на корректность не нужно. Программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
Пример работы программы:
Входные данные: 11, 21
Выходные данные: 6

Comments

Можно, пожалуйста, на языке QBasic

Answer 1

Var a,b,n: integer;
begin
  write('a b через пробел:  ');  readln(a,b);
  n:=b-a+1;
  if (n mod 2 = 1) and (a mod 2 = 1) then
  n:=n div 2 + 1
  else n:= n div 2;
  writeln('число нечетных чисел: ',n);
end.

Comments

Можно, пожалуйста, на языке QBasic

---

DIM a, b, n AS INTEGER
INPUT " a = ", a
INPUT " b = ", b
n=b-a+1
IF (n MOD 2 = 1) AND (a MOD 2 = 1) THEN n=n + 1
n=n/2
PRINT n