Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Olesechka00818
13.03.2023 22:25 •
Информатика
Напишите программу, которая проверяет, делится ли введенное пользователем целое число на 3 нацело
Ответ:
aIinakormiIkina
06.10.2020 13:48
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger('n=') mod 3=0 then Writeln('Делится на 3')
else Writeln('Не делится на 3')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
0Pandohcka0
03.11.2020 07:27
язык программирования питон,python ...
56анна2141
27.04.2023 03:44
Скорость передачи данных через adsl-соединение заняла 32 секунды. за это время был передан файл, размер которого 500 кбайт. определить минимальную скорость (бит/с),...
НадеждаАрико
27.04.2023 03:44
Вчем разница интерпретатора и компилятора ?...
oraevadiana
27.04.2023 03:44
Суммирование произвольного ряда чисел pascal...
mashaivedmed05
13.02.2023 10:46
Выберите один правильный ответ...
Какашка54321
09.02.2022 16:16
Как ты думаешь почему родители пптички не спустились к упавшему гнезду?...
Мур6954
04.07.2021 02:23
Найдите корень уравнения -9x-26=-7x-14...
hhhf1fodjcnj
04.07.2021 02:23
Написать сочинение на тему герба россии !...
atopio
04.07.2021 02:23
Уисполнителя умножатель две команды, которым присвоены номера: 1. умножь на 2 2. прибавить 1 первая из них умножает число на 2, вторая — прибавляет к числу 1. исполнитель...
David3464
04.07.2021 02:23
Стороны шестиугольника аbcdek равны .найди и выпиши название шести разносторонних треугольников и четырех равнобедреных .есть ли среди равнобедренных треугольников...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger('n=') mod 3=0 then Writeln('Делится на 3')
else Writeln('Не делится на 3')
end.