Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ilyabes1998
25.02.2022 01:34 •
Информатика
Ввести с клавиатуры два числа. являются ли числа кратными 3. if x%3 == 0
Ответ:
Bonya97
08.10.2020 06:45
Var a,b:Integer;
begin
Read(a,b);
if (a mod 3=0) and (b mod 3=0) then
WriteLn('Являются')
else
WriteLn('Не являются');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Люда0001
04.05.2022 00:59
6. Наведіть приклади, коли у програмі варто застосовувати оператор неповного розгалуження. 7. Як мовами програмування Free Pascal і Python реалізувати вкладені розгалуження?...
Isma24
25.05.2021 07:08
Информатика какие ответы на картинке верные???...
kise1970
31.12.2021 19:24
Дан фрагмент программы. If x 0 then If y x then write(‘да’) else write(‘нет’) else write(‘иногда’); Определите, что будет выеден на экран, если: Выделите правильные ответы....
vladys4u
02.04.2023 03:14
написать программу на C++ и к ним блок схему По двум введенным пользователем катетам вычислить длину гипотенузы....
DomenicAn
24.01.2020 02:53
5.Укажите имена переменных, которые нельзя использовать в Python: * print 5x Summa x5...
Anna1855
03.01.2020 19:21
Дан массив чисел. Расположите данный массив в порядке убывания. Создайте код num = [8, 12, 3, 48, 7, 65, 1, 2]...
Простокнигоманка
13.03.2021 07:05
Составить программу в Python, условия на фото...
1256545544
01.03.2021 16:13
Зашифруйте кодом цезаря слова: информатика, компьютер. и кодом виженера: человек, алгоритм...
blrikiog
20.06.2020 18:23
Какая функция является возрастающей? 1. у=3х-5 2. у=5х+3 3. у=-3х^2 4. у=5х^2...
IHannahI
20.06.2020 18:23
Можно ли назвать современные латиноамериканские страны авторитарными...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
Read(a,b);
if (a mod 3=0) and (b mod 3=0) then
WriteLn('Являются')
else
WriteLn('Не являются');
end.