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