Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
rahat9
10.08.2021 21:06 •
Информатика
Введите с клавиатуры число х.определите, является ли данное число дробным. пример ввода: 3.5 пример вывода: число дробное
Показать ответ
Ответ:
Adamant0813
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 оценок)
Популярные вопросы: Информатика
1011021031041051
14.05.2022 06:38
Многие видели в цирке такой акробатический номер. Один акробат встает на прыжковую доску с одной стороны, второй прыгает на другой конец. С какой начальной скоростью и под...
MashaNicoleta
19.05.2022 08:10
18 б статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 48 символов. определите размер статьи в кодировке...
wkolo3avr211
24.08.2020 05:11
Написать программу в паскаль : в массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу...
Vikasuk
18.03.2023 11:22
Вычислите значение функции: 3 у= х-5 и второе: у=2х+4, если х -1 3х²-х+1, если -1≤х≤3 √х+7, если х 3 блок-схема и программа...
Xomka03
26.10.2022 01:16
Переведите число а2 из шестнадцатеричной системы счисления в десятичную систему счисления.ответ и метод решения обязательно!...
Fo0lHardy
29.10.2022 11:41
Построить логическую схему для логического выражения (a v b) & (a v -c)...
Дамир2207
20.03.2020 12:37
Молю! написать полные программы. язык: pascal...
alinochkaderyu
03.08.2022 05:42
Пользователь работал с файлом С:\Class\9b\Pascal\task.pas. Затем он поднялся на один уровень вверх, создал коталог Homework, в нем создал еще один каталог Program и переместил...
dankillyou2014
25.02.2023 10:55
Какое количество теплоты необходимо затратить для плавления 20 кг алюминия при температуре 660°с? (написать с дано и найти )...
dndzanton
25.02.2023 10:55
Птицы улетают на юг в теплые края. как подчеркнуть каждое слово? как подписать?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.