Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЭлинаКутлуюлова
28.02.2023 22:40 •
Информатика
Даны два целых числа а и b. если а делится на b или b делится на a, то вывести 1, иначе – любое другое число.
Показать ответ
Ответ:
YourselfRuelfddd
09.07.2020 18:55
...
if (a mod b = 0) or (b mod a = 0) then written('1') else written('0');
...
––––––––––––––––
Не понятно - пиши
0,0
(0 оценок)
Ответ:
marinaaslanova1
09.07.2020 18:55
Var
a,b:Integer;
Begin
Read(a,b);
if (a mod b=0) or (b mod a=0) then Writeln('1')
else Writeln('0');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ренат123456789
04.11.2022 11:12
Від характеристики яких пристроїв залежить швидкодія комп’ютера? Позначте всі правильні відповіді. А Монітор Б Оперативна пам’ять В Процесор Г Постійна пам’ять...
Аня12022006
02.05.2023 11:03
Сколько значащих нулей в двоичной записи: шестнадцатеричного числа 12А?...
fasgame
14.12.2020 08:36
Решить всероссийскую школьную олимпиаду по информатике 10 класс...
pashasergo
13.01.2021 17:31
Даны простые высказывания: a={7 5},b={4=3},c={5 3}. определить значение истинности сложных высказываний: а) (аvв)ᴧс⇒(аᴧс)v(bᴧc); б)(аᴧв)vс⇔(аvс)ᴧ(аᴧв)....
Annpetushok
28.10.2020 07:24
Один лист а4 в пикселях при разрешении 1920х1080...
юля417
05.09.2020 23:56
В вопросах 1-11 выберите один правильный ответ из четырех предложенных: 1. Клетки с многочисленными отростками характерны для ... ткани нервной эпителиальной мышечной соединительной...
regenko1
08.05.2021 20:17
На начало планируемого года мощность завода железобетонных изделий составила 90 тыс. м3. В предыдущем году новые мощности на заводе не вводились. В результате про-ведения...
khalitovroman
09.12.2020 16:58
Вставить слово ! My friend is ответ of surfing the internet as many young people of a new generation....
4535константин20051
04.05.2020 22:03
Школьники занимаются прополкой огорода, который находится на пришкольном участке. Работают они с разной скоростью, а некоторые из них, как показывает практика, даже мешают...
chiigenwjs67
08.07.2020 20:13
Фонетика. Divide the sentences into sense groups (if necessary) and put down stresses and nuclear tones (5 points). What could the teacher be thinking of? How awfully busy...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if (a mod b = 0) or (b mod a = 0) then written('1') else written('0');
...
––––––––––––––––
Не понятно - пиши
a,b:Integer;
Begin
Read(a,b);
if (a mod b=0) or (b mod a=0) then Writeln('1')
else Writeln('0');
end.