Созда программу на паскале которая показывает числа целые или не

Для решения вашей задачи, мы создадим простую программу на языке Pascal, которая будет определять, является ли введенное число целым (integer) или нецелым (real). Давайте пошагово разберем, как это сделать. ### Шаг 1: Начать программу Первым делом, начинаем с объявления программы и необходимых переменных. Нам понадобится одна переменная для хранения числа, которую мы будем проверять. ```pascal program CheckInteger; var number: real; ``` ### Шаг 2: Ввод числа Далее, мы запрашиваем у пользователя ввод числа. Используем процедуру `ReadLn`, чтобы получить значение. ```pascal begin Write('Введите число: '); ReadLn(number); ``` ### Шаг 3: Проверка на целостность Теперь нам нужно проверить, является ли введенное число целым. Это можно сделать, сравнив число с его целочисленным представлением. В Pascal для этого существует функция `Trunc`, которая округляет число до целого, отбрасывая дробную часть. ```pascal if number = Trunc(number) then WriteLn('Это целое число.') else WriteLn('Это нецелое число.'); ``` ### Шаг 4: Завершение программы В конце программы всегда полезно добавить завершение. Для этого добавим `end.`. ```pascal end. ``` ### Полный код программы Теперь объединим все части вместе: ```pascal program CheckInteger; var number: real; begin Write('Введите число: '); ReadLn(number); if number = Trunc(number) then WriteLn('Это целое число.') else WriteLn('Это нецелое число.'); end. ``` ### Объяснение: 1. **Определение переменной:** Мы объявили переменную `number` типа `real`, которая может хранить как целые, так и дробные числа. 2. **Ввод числа:** Через `Write` и `ReadLn` пользователю предлагается ввести число. 3. **Проверка:** Мы используем условие `if` для проверки, равно ли число его целочисленному значению, полученному с помощью `Trunc`. Если да, то это целое число, если нет — то дробное. 4. **Вывод:** В зависимости от результата проверки выводится соответствующее сообщение. Теперь вы можете запустить эту программу и проверить, является ли введенное число целым или нецелым!