Войти
Регистрация
Спроси 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...
Славик14102
04.05.2021 11:19
Задание 1 знать и понимать (стр. 125) 1.что называется интегрированным?2. назовите структуру встроенного оператора If.3. Как выполняются встроенные операторы?4.Почему выгодно использовать...
2shIk
27.10.2021 15:12
составить таблицу истинности...
an121759
24.02.2020 15:02
все задание которые отмечены...
матвей426
23.11.2020 21:46
ЗАЧЕТ НУЖНО РЕШИТЬ КАК МОЖНО БЫСТРЕЕ ВАРИАНТ 8 РАБОТА С ЭКСЕЛЕМ...
alex12345lex
12.04.2021 13:45
Несколько предложений на тему жаны саудың тәні сау...
Настя11111111110
12.04.2021 13:45
Кто почему программа трумэна заставила сталина закашляться...
666666ник
12.04.2021 13:45
Дан раствор гидроксида кальция(известковая вода).получите карбонат кальция,а из него-раствор хлорида кальция...
Meeep
12.04.2021 13:45
Составьте и запишите предложения с порядковыми числительными ,соответствующими данным цифрам: 7,10, 40 , 90 ,500 , 8000, 9000000....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.