Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
KULLRUS1
23.09.2022 04:49 •
Информатика
Составить программу в паскаль: дано трехзначное число определить делится ли оно на 3.если да - вывести результат деления,если нет вывести фразу -"число не кратно 3".
Показать ответ
Ответ:
Kiko2802
21.07.2020 12:10
Можно так. .
кусок программы.. .
if n mod 3 = 0 then writeln('число делится');
else writeln('не делится');
(это не по признаку делимости)
0,0
(0 оценок)
Ответ:
kharina0309
21.07.2020 12:10
Program prog;
uses crt;
var a: integer;
begin
write('Введите трехзначное число а = ');
readln(a);
if a mod 3 = 0 then writeln('Результат = ', a/3)
else writeln('Число не кратно 3');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zaira1979zaira11
05.04.2023 05:33
Упростите логическую формулу z=(P⇔Q)⇒(¬P⇒Q)...
ольга1705
03.03.2020 19:38
Початковий внесок в банку дорівнює 1000 грн. Через кожен мiсяць розмір вкладу 3. збільшується на Р відсотків від наявної суми (Р-дійсне число, 0 ів...
9416451
22.07.2020 22:26
# В данной реализации программа начисляет одинаковое количество очков за слова разной длины # ЗАДАНИЕ: изменить программу таким образом, чтобы количество очков, которое...
хорошист438
22.07.2020 22:26
Определите, при каком наименьшем положительном введённом значении переменной s программа выведет отрицательное число....
Misha01923
11.05.2022 08:30
решить этот пример. Тема называется использование ракурсивной функции, построить блок схему, и написать программу на паскале...
кек945
25.06.2020 20:32
Задача 17. Скластизавданнявідповідно до блок-схеми.TA:=A+1ніA 5?так Очень ...
дада211
15.09.2021 00:41
Необходимо вычислить в Excel 596⋅43. Запись в MS Excel выглядит следующим образом: +596+43 596×43 =596∗43...
Alencka111
20.08.2021 10:20
с задачей по информатике ! Желательно все, но в приоритете 8.(13-66)...
Yaroslava0111
27.07.2021 00:23
Контрольная работа Массивы 1) Заполните массив случайными числами в интервале [0,7]. Найдите все значения, оканчиваю-щиеся на 0, но не делящиеся на 3. 2) Заполните...
bomjikvitaly
23.10.2020 07:44
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
кусок программы.. .
if n mod 3 = 0 then writeln('число делится');
else writeln('не делится');
(это не по признаку делимости)
uses crt;
var a: integer;
begin
write('Введите трехзначное число а = ');
readln(a);
if a mod 3 = 0 then writeln('Результат = ', a/3)
else writeln('Число не кратно 3');
end.