Давайте разберем, как написать программу на языке Паскаль, которая определяет, является ли введенное число дробным.

В этой программе мы будем использовать следующие шаги:

1. Определение переменных: Нам нужны две переменные: одна для хранения числа, которое введет пользователь (назовем ее a), и одна для хранения округленного значения этого числа (назовем ее c). Мы используем тип данных real, так как он позволяет работать с дробными числами.
2. Ввод числа: Мы будем использовать команду readln для считывания числа с клавиатуры. Это позволит пользователю ввести любое вещественное число, например, 3.5.
3. Округление числа: После того как мы получили значение a, мы применяем функцию round для округления этого числа. Результат округления сохраняется в переменной c.
4. Проверка условия: Теперь мы должны сравнить переменные a и c. Если они равны, это значит, что число не дробное (например, 3.0), и мы выводим сообщение 'число не дробное'. Если они не равны, это значит, что число дробное (например, 3.5), и мы выводим сообщение 'Число дробное'.

Теперь давайте посмотрим на сам код программы:

Program z1; 
var 
    a, c: real; 
begin 
    readln(a); 
    c := round(a); 
    if c = a then 
        writeln('число не дробное') 
    else 
        writeln('Число дробное'); 
end.

В этом коде:

• Строка Program z1; объявляет название программы.
• В блоке var мы определяем переменные a и c как вещественные числа.
• Команда readln(a); позволяет пользователю ввести значение.
• Команда c := round(a); округляет введенное значение.
• Условие if c = a then проверяет, является ли число дробным или нет.
• Команды writeln выводят соответствующее сообщение на экран.

Таким образом, программа позволяет пользователю вводить число и сразу же получает ответ о том, дробное оно или нет. Это простой и эффективный способ работы с числами в Паскале!