Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Elnur19982
29.04.2020 23:21 •
Информатика
Написать программу функции написать 1, если n делится на 3 написать 0, если n не делится на 3
Показать ответ
Ответ:
nikitakucherenk
09.10.2020 04:48
var n:integer;
begin
readln (n);
if n mod 3=0
then writeln (1)
else writeln (0);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
натуся103
05.10.2021 01:17
Женя придумал шифр для обмена секретными сообщениями с одноклассниками. Он решил заменить буквы русского языка на буквы английского, но в обратном порядке: A-Z, Б-Y, В-X и...
ritikdf345
14.04.2020 18:52
Как перевести число 0,101 с двоичной в десятичную...
Зикош02
14.04.2020 18:52
Считая, что каждый символ кодируется 1 байтом, определите информационный объем в байтах фразы: певец-давид быд ростом мал, но повалил же голиафа!...
КсенияА2006
22.06.2021 20:34
Мне задали нарисовать елку с елочными игрушками в паскале, !...
ilonasuper
16.09.2021 13:52
Подскажите , можно ли в презентации приостановить видео( поставить на )...
c1Darkness1c
19.07.2022 08:26
Типы гиперссылки запишите в тетради...
Maks100000000
25.11.2022 19:35
Геометриялық фигуралар жайлы 5 сөйлемнен тұратын мәтін құрастыр. Негізгі мәтін. Қаріп: 12 pt, Arial; түсі: қара; Абзац: мәтін еніне реттелген, интервал 1.0 өлшемімен берілген.Сілтемелер....
milanabzhityants
15.05.2020 17:11
Разобрать предложение (почеркнуть и характеристику) серебрянка - мелкая речёнка...
vitlikkushnirp08qv4
15.05.2020 17:11
Найдите массу ледяной глыбы объёмом 4м3, если плотность льда 900 кг/м3...
Bomberidze
15.05.2020 17:11
25 ! а.с.пушкин дубровский , эпизод обед в покровском от лица троекурова , умоляю!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n:integer;
begin
readln (n);
if n mod 3=0
then writeln (1)
else writeln (0);
end.