Ответы на вопрос:
Var x: real; begin readln(x); if frac(x)=0 then writeln('число целое') else writeln('число является дробью'); end.
Популярно: Информатика
-
Какими свойствами обладает память человека...
aldeerGroMo04.01.2021 04:21 -
Чем отличается память человека от памяти человечества...
вова99310.07.2022 13:33 -
Как на компьютере с windows 10, подключиться к wi-fi, если значка...
kli200192uasmi30.11.2021 05:49 -
Програма зчитує з клавіатури 5 чисел через пробіл та заповнує...
ulia10810.11.2022 01:22 -
Повышенная температура в помещении — это... физически-эргономический...
Аня2004133428.10.2021 21:10 -
решить. Скриншот приложен....
Jgareva101dasha01.05.2020 18:37 -
Фильмы ужасов и кинофантастика Медиаграмотность сделать доклад...
RomqaShut28.09.2020 15:39 -
Сколько байт информации содержит сообщение объёмом 256мбит...
bomjikvitaly21.10.2021 08:05 -
3.напишите комментарий (комментарий) к этой программе. А. рrint...
ReyLiv14.05.2022 12:50 -
Заполнить массив случайными числами из диапазона [-30,30]. Сосчитать...
Liner15814.03.2020 00:40