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

[Grinnchik]

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

[Lapp]

Проверку на целость действительного числа можно сделать как-то так:

if Abs(a-Round(a))<=e*a then writeln('число целое') else writeln('число нецелое');

Параметр e можно положить равным 1E-10 для чисел типа real или 1E-14 для чисел типа double.

2 Sheka:
тебе лень по клаве пальцами двигать? либо отвечай на вопрос, либо промолчи..