Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Koki2006
04.07.2021 18:23 •
Информатика
Определить что, данное натуральное число а кратно числу ь, но не кратно числу с! составить программу.
Показать ответ
Ответ:
yiliamasegorova
16.07.2020 13:18
Var a, b, c:integer;
begin
write('Введите a, b, c: '); readln(a, b, c);
if(a mod b = 0) and (a mod c <> 0) then writeln('Кратно b, но не кратно c')
else writeln('Условие не истинно');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zahar64
29.08.2021 20:10
Объясните : с клавиатуры вводится трёхзначное число. написать программу, которая составляет новое трёхзначное число, в котором цифры десятков и сотен поменяли местами. заранее большое...
Орррроо
04.01.2020 01:40
В node.js как прописать команду purge для бота дискорд на библиотеке discord.js...
2shIk
27.10.2021 15:12
составить таблицу истинности...
alex12345lex
12.04.2021 13:45
Несколько предложений на тему жаны саудың тәні сау...
666666ник
12.04.2021 13:45
Дан раствор гидроксида кальция(известковая вода).получите карбонат кальция,а из него-раствор хлорида кальция...
Meeep
12.04.2021 13:45
Составьте и запишите предложения с порядковыми числительными ,соответствующими данным цифрам: 7,10, 40 , 90 ,500 , 8000, 9000000....
саид126
12.04.2021 13:45
Почему греческую архитектуру называют пластической?...
hehdsfg1
12.04.2021 13:45
Объясните,какие особенности жизнедеятельности двоякодышащих рыб нашли отражение в тех названии....
glazalmahfidbbw
12.04.2021 13:45
Отрасли промышленности в пром центрах: псков, новгород, великие луки, тихвин...
asyast26
12.04.2021 13:45
Нарисуйте диаграмму и напишите формулу цветка редиса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите a, b, c: '); readln(a, b, c);
if(a mod b = 0) and (a mod c <> 0) then writeln('Кратно b, но не кратно c')
else writeln('Условие не истинно');
end.