Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ivandawidov
29.04.2023 04:23 •
Информатика
Определить что, данное натуральное число а кратно числу ь, но не кратно числу с! составить программу.
Показать ответ
Ответ:
petuhovoleg22
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 оценок)
Популярные вопросы: Информатика
arinasuykova
31.08.2020 10:47
1. графический исполнитель стоит в левом верхнем углу поля. направление - произвольное. что будет изображено на экране после выполнения графическим исполнителем следующего...
polisavostina
14.02.2022 03:16
перед архимедом в ряд положили 4 одинаковые с виду монеты. среди них обязательно есть как золотые, так и серебряные в позолоте (легче золотых). известно что любая...
wwwwwww6
01.07.2020 00:34
Рассчитать: 20/5= 56//5= 67%8= (45//4)+(34%3)=...
Оченьнадо11
10.04.2021 07:42
6. Как закрепить имя папки, в которой будут сохраняться все открытые документы Word? 7. Какими возможностями обладает окно – Найти и заменить, которое можно открыть...
MaykTV26
05.06.2023 10:21
Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 320×640 пикселей...
yuraaverchenko
25.04.2021 23:42
с информатикой как посчитать 14%5 и 6**2...
Levern
23.05.2023 09:56
по информатике кто я поставлю 5 звёздочек и отмечу как лучший ответ...
zhludovaanasta
23.05.2023 09:56
Из чего состоит компьютерный блок?...
Ларибум
15.12.2021 22:21
Рассчитать: 20/5= 56//5= 67%8= (45//4)+(34%3)=...
moaariishkkaa
25.03.2023 02:34
Почему индустрилизация в любой стране ведет к сокращению сельского населения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.