Question

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

Answer 1

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

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

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

КОН Задание.