Подсчитайте количество целых чисел в диапазоне от 1516 до 3016 включительно.

1500 . так как целое число это любое число 1,2, и 0 и числа с минусом -1, -2, -

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

var a : integer; begin readln(a); if (a div 10 > 0)and(a div 100> 0)and(a div 100< 10) then writeln('число трехзначное') else writeln('число не трехзначное'); end.