Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ера2009
12.04.2023 11:03 •
Информатика
Написать программу, которая печатает true или false в зависимости от того, выполняются или нет заданные условия: среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 5
Показать ответ
Ответ:
Luhfeeqq
08.10.2020 20:37
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
Trunc(Frac(Abs(ReadReal('x=')))*1000).ToString.Contains('5').Println
end.
И это - всё! )))
0,0
(0 оценок)
Популярные вопросы: Информатика
jennie17
03.09.2022 21:00
Составьте алгоритм расчёта объёма параллелепипеда в виде блок схемы в виде блок схемы!...
9639933p08o1o
03.09.2022 21:00
Посчитать сумму чисел от 1 до 100, которые делятся на 4 без остатка. написать программу, щиклический алгоритм с постусловием, с предусловием, , заранее )...
Првнсл28458
05.05.2023 22:19
Зобразити на координатній площині декартовий добуток A{x:3≤x≤6} B{x:x∈R}...
vanuaevstifeev
22.12.2022 16:44
Утром, в продуктовый магазин к булок белого хлеба по цене 25 рублей и в булок черного хлеба по цене 23,50 рублей. определить выручку магазина от продажи хлеба....
ksyutitova2017p0bhz4
22.12.2022 16:44
Определить и написать название программ, которые находятся на пк?...
olyakurets
27.10.2022 20:53
Укажите графический редактор векторного типа: Inkscape Paint.NET Gimp Adobe Photoshop...
676751
27.05.2022 19:00
Определите, какое из указанных имен файлов не удовлетворяет маске: * выберите один ответ: 1. system.dll 2. syszx.problem 3. sys23.exe 4. syste.m...
olgagolikova2
27.05.2022 19:00
13 монет из них ровно 1 фальшивая причем неизвестно легче она настоящих или тяжелее . требуется найти эту монету за 3 взвешивания весы стандартные для этого типа 2 чашечки без гирь...
ROMA706
03.02.2021 11:38
100 ! ответ загрузить в виде изображения...
Джеси99
01.08.2020 06:26
Complete the dialogue with words from the box . (Дополни диалог словами из рамочки)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
Trunc(Frac(Abs(ReadReal('x=')))*1000).ToString.Contains('5').Println
end.
И это - всё! )))