Войти
Регистрация
Спроси 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 байтом, определите информационный объем в байтах фразы: певец-давид быд ростом мал, но повалил же голиафа!...
ilonasuper
16.09.2021 13:52
Подскажите , можно ли в презентации приостановить видео( поставить на )...
чинка2
25.07.2022 11:09
Сколько бит/с в 1 Кбит/с?...
Maks100000000
25.11.2022 19:35
Геометриялық фигуралар жайлы 5 сөйлемнен тұратын мәтін құрастыр. Негізгі мәтін. Қаріп: 12 pt, Arial; түсі: қара; Абзац: мәтін еніне реттелген, интервал 1.0 өлшемімен берілген.Сілтемелер....
vitlikkushnirp08qv4
15.05.2020 17:11
Найдите массу ледяной глыбы объёмом 4м3, если плотность льда 900 кг/м3...
Bomberidze
15.05.2020 17:11
25 ! а.с.пушкин дубровский , эпизод обед в покровском от лица троекурова , умоляю!...
dbdbbdns
15.05.2020 17:11
Какая тема стихотворения нивы сжаты рощи голы основная мысль этого стихотворения...
dynn
15.05.2020 17:11
Что люди делают для охраны реки обь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.