Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
adyoulan
12.08.2021 00:54 •
Информатика
Дано число. определить делиться ли оно на 9
Показать ответ
Ответ:
blackstar19
08.10.2020 11:10
Program hgfhj;
var
x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 9 = 0
then writeln('Число ', x, ' делится на 9')
else writeln('Число ', x, ' не делится на 9');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mikhailsmirnov2
26.06.2021 16:22
(? Массив А из 4 элементов заполняется по формуле. Установите соответствие между формулой и полученным A массивом. 2 о for x:=1 to 4 do A[x]:=x*(x+1); А: 2, 5, 8, 11...
АннаЛютинго
07.01.2021 21:01
Для хранения оцифрованных фрагментов звукозаписей отведено X МБайт памяти (X – целое число). Если оцифровку проводить с частотой дискретизации 32000 Hz, то отведенной...
Черныйкотик007896
27.06.2022 23:19
Задание 3 Циклический оператор. Составить программу, которая выводит на экран для числа 3 ее степени от 1 до 6....
vikaadvova
11.04.2020 21:47
4. Даны переменные, распределите их в соответствии с типами: А=123; В= Маша”: С=2.5; D=False; E=8; F=True; G= 123*,Н=658.78;ЦелыеСимвольныеС плавающей точкойЛогические...
Am0nt
27.04.2022 00:51
25//7= 15//20= 25//7= 15%20= 8%8= 12%5=...
veselskih1998
21.06.2021 04:55
Текстовый редактор Процесс связывания всех файлов, созданных компилятором, с исполняемой программой Программа для пошагового поиска, обнаружения и исправления ошибок...
gygfyye66363
28.03.2023 08:26
Интегрированная среда разработки(IDE) это - Комбинация компьютерных инструкций и данных, позволяющая аппаратному обеспечениюВычислительной системы выполнять вычисления...
zulaykho001
08.04.2023 08:04
Опишите более подробно действие собери портфель...
elya144
08.04.2023 08:04
Как разобрать по составу слово понимание?...
Denis577
05.02.2023 22:51
Где создана и что обслуживает самая большая локальная сеть в мире?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 9 = 0
then writeln('Число ', x, ' делится на 9')
else writeln('Число ', x, ' не делится на 9');
end.