Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ruzanayvazyan
27.01.2020 01:31 •
Информатика
Проверьте кратна ли сумма трех произвольных чисел, введенных с клавиатуры, в 15 р, числами 7 и 9 одновременно
Показать ответ
Ответ:
aleXxxx03
07.07.2020 08:50
Var a,b,c:integer;
begin
writeln('введите через пробел три числа');
read (a,b,c);
if (15*(a+b+c) mod 7=0) and (15*(a+b+c) mod 9 =0) then writeln('кратна') else writeln ('не кратна')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
leratyurina
15.05.2020 22:04
Определить максимум трех чисел, используя составные уравнения. паскаль...
pingvik86
07.05.2021 08:54
Даны три числа. возвести в квадрат те из них который являются четными. паскаль...
Даша83934
14.10.2020 00:34
Определите количество кратных трём из а, в и с...
ulchik4572
18.10.2020 03:30
Какая из точек ближе к нулю точки: к, м...
magmadi1
18.10.2020 03:30
Найти среднее арифметическое трех чисел. если среднее арифметическое больше 5 то на экран выдать сумму. паскаль...
MelinMelomGii
20.04.2021 11:13
7. поиск решения (время выполнения – 20 минут) поиск решений – надстройка excel, которая найти решение с изменения значений целевых ячеек. целью может быть минимизация, максимизация...
Шурочек
13.02.2021 13:41
Сколько раз котенок переоденется в костюм1...
gsst2004p08tcc
06.06.2022 16:12
Сойлемдердеги бос создерди жане соз тиркестерин толыктыру. 1.Аналитикалык машина. АрифмотетрЭмбебап...
Nikitos228456
12.08.2022 14:43
Информационный объем сообщения длиной в 64 символа составляет 32 байта. Определите, из какого максимального количества символов может состоять алфавит языка, на котором написано...
didlerty
07.05.2020 09:03
Контрольная работа «Мультимедиа» Вариант - 1 1.Компьютерная презентация состоит из: а).картинок; б).диаграмм; в).слайдов г).документов; д).анимаций; 2.Интерактивность презентации...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('введите через пробел три числа');
read (a,b,c);
if (15*(a+b+c) mod 7=0) and (15*(a+b+c) mod 9 =0) then writeln('кратна') else writeln ('не кратна')
end.