Введите с клавиатуры число х. Определите, является ли данное число дробным. Пример ввода: 3,5 Пример вывода: число дробное.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Параметр ИЗ ".../Отделы/Обмен/", Вывод ИЗ ".../Отделы/Обмен/", Текст ИЗ ".../Отделы/Числа/";

ПЕР
  строка: РЯД 32 ИЗ ЗНАК;
  число: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  Параметр.Текст(1, строка);
  сч := 0;
  число := Текст.ВВещ(строка, сч);
  ЕСЛИ ЦЕЛЧАСТЬ(число) # число ТО
    Вывод.Цепь("Число дробное.")
  ИНАЧЕ
    Вывод.Цепь("Число целое.")
  КОН

КОН Задание.