Question

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

Answer 1

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

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

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

КОН Задание.