Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Матвей2048602
06.04.2022 21:36 •
Информатика
Дано трёхзначное число. верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль
Ответ:
popovamelanaliceysi
02.08.2020 14:00
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.
Выводится True, если верно и False, если нет
Пример
n= 483
True
Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!
0,0
(0 оценок)
Популярные вопросы: Информатика
Finger2280
13.05.2023 03:37
Напишите программу на языке паскаль. ввести 2-а числа первое число-степень втрое-любое вещественное число вычислить степень с натуральным показателем n для любого вещественного...
лав35
27.10.2022 18:49
Трёхзначное число, записанное в системе счисления с основанием 3, при перестановке крайних цифр становится числом, выражающим то же количество, но уже в системе счисления с основанием...
сехун2
27.10.2022 18:49
Переведите десятичное число 105 в восьмеричную систему счисления. в ответе укажите восьмеричную запись...
ishnlv
18.12.2020 05:23
Определите значение переменной b после выполнения алгоритма. (символ «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания,...
svalevayulia10
11.02.2021 05:27
ПАСКАЛЬ АБС4. Визначити, чи може задана послідовність символів бути числом, записаним уШістнадцятковій системі ЧИСЛЕННЯ...
Максим228prs
08.05.2021 13:22
написать программу вывода всех чисел [1056..50689], которые делятся нацело на 3 и на 6, но не делится на 8,9 и 5...
Marinap041744
08.05.2021 13:22
поиск информации урок 2 Рассмотри рисунок и обозначена цифрой 4 ссылка адресная строка вкладка ключевые слова...
KaraKiller
16.08.2022 01:24
Написать программу вывода всех чисел(1056..50689)которые делятся нацело на 3 и на 6,но не делятся на 8,9 и...
pogosanitka2345
15.09.2020 15:54
английский ответьте на во только раскрытые ответы на англ текст на фото1. What is this story about? 2. The narrator turned off the road to visit his niece, didn’t he?3. What...
Dashylik228
15.09.2020 15:54
Укажите координаты точки пересечения отрезка AB с осью ординат (рисунок 13)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.
Выводится True, если верно и False, если нет
Пример
n= 483
True
Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!