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

Для решения вашей задачи, мы создадим простую программу на языке Pascal, которая будет определять, является ли введенное число целым (integer) или нецелым (real). Давайте пошагово разберем, как это сделать.

Шаг 1: Начать программу

Первым делом, начинаем с объявления программы и необходимых переменных. Нам понадобится одна переменная для хранения числа, которую мы будем проверять.

program CheckInteger;
var
  number: real;

Шаг 2: Ввод числа

Далее, мы запрашиваем у пользователя ввод числа. Используем процедуру ReadLn, чтобы получить значение.

begin
  Write('Введите число: ');
  ReadLn(number);

Шаг 3: Проверка на целостность

Теперь нам нужно проверить, является ли введенное число целым. Это можно сделать, сравнив число с его целочисленным представлением. В Pascal для этого существует функция Trunc, которая округляет число до целого, отбрасывая дробную часть.

  if number = Trunc(number) then
    WriteLn('Это целое число.')
  else
    WriteLn('Это нецелое число.');

Шаг 4: Завершение программы

В конце программы всегда полезно добавить завершение. Для этого добавим end..

end.

Полный код программы

Теперь объединим все части вместе:

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. Вывод: В зависимости от результата проверки выводится соответствующее сообщение.

Теперь вы можете запустить эту программу и проверить, является ли введенное число целым или нецелым!