Проверка действительного числа на целость, и нахождение диапазона целых Опции

[Grinnchik]

Вообщем задали в школе задачу по паскалю.Там нужно ввести границы диапазона с клавы и потом еще 3 числа (тип real) нужно вообщем написать какие числа проходят по диапазону,какое первое отрицательное/положительное,с этим я справился,а вот еще нужно определить сколько целых чисел и вывести.С этим проблема.Как переменные типа real проверить на целость?Mod как я понял не подходит.Задача для 10 класса,не предлагайте сложных решений пожалуйста.Спасибо заранее.

[TarasBer]

Я так понял, автору надо узнать, сколько целых на диапазоне?
Тогда проверка числа на целость не поможет.
Ну не будете же вы перебирать все вещественные числа в диапазоне и проверять их на целость.

В диапазоне от a до b целых чисел ровно

down(b)-up(a)+1

где down ищет ближайшее целое снизу, а up - ближайшее целое сверху.
Таких функций стандартных нету, но их можно написать, используя round

function down(x: real): integer;
var 
  r: integer;
begin
  r := round(x);
  if r>x then r:=r-1;
  down := r;
end;

function up(x: real): integer;
var 
  r: integer;
begin
  r := round(x);
  if r<x then r:=r+1;
  up := r;
end;