Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Andreysha363
27.05.2021 10:36 •
Информатика
Дано трёхзначное число. верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль
Показать ответ
Ответ:
ulyanan260801
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 оценок)
Популярные вопросы: Информатика
loloh333
22.11.2022 09:05
Информация, которую мы получаем с органов зрения - это ....
Эхэхэхэххэ
15.02.2023 14:03
Угадайте правило, по которому составлена последовательность, продолжите её: а) 2,2,4,8,32,256, б) п,в,с,ч,п, в) 1,11,21,1211,111221,312211, г)1 - 0, 8 - 2, 16 - 1, 1990 - 3, 1989 -...
danveressov
05.03.2023 20:49
Е.львович обыкновенное чудо-количество страниц, жанр, основная тема, главные герои и почему произведение называется именно так? ?...
saba22
30.04.2020 15:15
Определите количество молекул содержащихся при н.у. в 49,28 л ацетилена с2н2 . определите массу газа....
альбинка25
16.06.2022 00:35
Как будет меняться сосновый бор, если в нем поселится сфагнум? только не из интернета (там везде одно и тоже)...
Заяцэ
23.02.2021 01:46
Подьемный кран равномерно поднимает груз массой 3т за 0,5 мин мощьность подьемного крана 10 квт какую работу совершает кран? чему равна высота на которую поднимает груз...
xenyazhardin
23.02.2021 01:46
1кто, по мнению многих, самый талантливый композитор 19-го века? а чайковский в гендель с моцарт 2 у какого композитора большинство опер в репертуаре ведущих оперных театров сегодня?...
euno
23.02.2021 01:46
Составьте предложения словосачитанием рассказать...
матвей426
23.02.2021 01:46
2поставьте глаголы, данные в скобках, в futurum: wann … er …? (zurückkommen) ich … morgen alle regeln noch einmal … . (wiederholen) … sie sich darüber … ? (freuen) man … sich zur kontrollarbeit...
человек9527
23.02.2021 01:46
Прочитайте текст. найдите дробные числительные, запишите и просклоняйте их. о планете земля возраст земли составляет от 4,5 до 5 миллиардов лет. площадь её поверхности -510,073 миллионов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.
Выводится True, если верно и False, если нет
Пример
n= 483
True
Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!