Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
лупапупа
22.07.2021 15:09 •
Информатика
Введите с клавиатуры число х.определите, является ли данное число дробным. пример ввода: 3.5 пример вывода: число дробное
Показать ответ
Ответ:
роза413
20.06.2020 09:40
Var s:string; i,k:integer;
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
brandenberg
15.03.2023 16:02
Перевести число в десятичную систему счисления 235,3^6...
chapllinshow
13.04.2022 05:51
Двоичное число 100110 в десятичной системе счисления записывается как: а)36 б)38 в)37 г)46 объясните подробно как решать...
prencessviki
09.04.2023 17:54
сделайте в Питоне сделайте в Питоне >...
abakanovalera
27.07.2022 13:00
Программа, работающая с видом компьютерной графики...
Аннаlove2017
02.09.2022 17:57
Вpascal массив a[30] (вещ) найти: amin-? imin-? ) a14 - а30 (поменять местами)...
danisov2003
02.09.2022 17:57
Вмаркированном списке для обозначения элемента списка используются: а)латинские буквы; б) буквы; 3)римские цифры; 4)графические значки !...
9Единорожка1111111
12.02.2022 14:21
Сформировать условие запроса к бд «подписка», при выполнении которого на экран будут выведены сведения о подписчиках соколове, федорове и яковлеве (в условии запроса...
Monika950
03.04.2022 04:34
ответьте на вопросы по тексту 1)металлическая изгородь отделила провожающих и отлетающих. (2)в самолёте мы прилипли к иллюминаторам, и перед нами предстала чудесная...
natashaleskovets
03.04.2022 04:34
Задайте общие и специальные вопросы к предложениюthe dolphins are swimming in the sea(на )...
Mary3456
03.04.2022 04:34
Определите массу деревянного кубика стороной 2см. плотность дерева равно 0,7г/см3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.