Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
кукушка139
01.06.2020 14:53 •
Информатика
Составить программу для решения : задайте целое число ; определите кратно ли оно 5
Показать ответ
Ответ:
алишер128
05.10.2020 08:38
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mikatay
01.12.2022 07:33
Некоторая величина может принимать целые значения от 0 до 127. сколько байт потребуется для записи значения этой величины в двоичном ко- де?...
mustafaalbakov
08.03.2023 14:40
Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7....
Вадим363737466
22.10.2022 05:21
В файл b.txt (задание №2) под полученным результатом добавьте число 60 в новую строку, используя команду Добавить записи в файл....
f0xses
25.07.2021 21:20
Если n=3, то вывод на экран s= 6, 17, 62 или 4030...
Влад09090
21.09.2021 12:54
Написать программу для вычисления значения выражения: s=|3x^4+12y^3-4x+7|-13....
амина653
29.02.2020 11:01
Серед поданих нижче сполук лише одна числівникова. знайдіть її. а. багато говорити; б. скласти утроє; в. мало велосипедів; г. двічі попередити; д. поділити навпіл....
HET228
29.02.2020 11:01
Водной библиотеке 12000 книг, а в другой -75% этого количества. сколько книг в этих двух библиотеках вместе?...
lapohka181202
29.02.2020 11:01
Придумать 5 предложений с must и 5 с mustn,t...
настя7566
29.02.2020 11:01
Як ти розумієш вислів чим більше мов знає людина , тим вона багатша ? напиши про це текст 5-7 речень....
ban20050408
29.02.2020 11:01
Who often (to discuss) plant with these engineers?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.