Войти
Регистрация
Спроси ai-bota
irhev73fa
14.03.2021 21:02
Даны два целых числа а и b. если а делится на b или b делится на a, то вывести 1, иначе – любое другое число.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
kolodina10
11.12.2021 09:48
Рисунок размером 5×6 дюймов отсканировали с разрешением 128 dpi и использованием 65 536 цветов. Определите размер полученного файла без учёта служебных данных и возможного...
KatyaD2005
04.02.2022 23:34
Егор, отвечая на вопросы письменного опроса, написал: 1) Системное программное обеспечение – это программы, управляющие работой компьютера и обеспечивающие его эффективную...
heni2001
24.01.2020 10:13
Два задания.Нужно написать код на с++....
abaevadilnaz
12.06.2022 06:01
Задание 8. Вставьте вместо символа подчеркивания знак отношения » или « », чтобы в результате выполнения команд каждый раз наэкран выводилось слово «True»....
натуся103
25.02.2021 03:55
Сымсыз желі стандарттарына жатпайтын нұсқа...
tugatimu9876
17.03.2021 00:41
Какая система команд относится к исполнителю кузнечик? выберите один из вариантов ответа: вперёд, назад, закрасить вперёд, назад, направо, налево, перекрасить вперёд, назад,...
Viktoria235601
25.04.2021 13:17
Напишите программу для черчения таких снежинок. по условиям : 1.использовать программу кумир 2.писать программу только при смещения на векторы ( то есть без смещений на но...
Lenusea10
04.06.2022 23:41
Объясните, ! ! дан фрагмент электронной таблицы впишите в ячейки диапазона в1: в9 значения, которые появятся в электронной таблице после копирования формулы из ячейки в1 в...
diasline
29.03.2021 12:35
Посчитать в кбайтах объем информации в тексте, если текст состоит из 1500 сиимволов, а алфавит содержит 64 символа...
упоротаялялька
26.04.2020 08:44
на бесконечном поле имеется стена, длинны отрезков стены неизвестны. стена состоит из одного горизонтального и трех вертикальных отрезков (отрезки стены расположены буквой...
Ответ:
СлавикАлина
09.07.2020 18:55
...
if (a mod b = 0) or (b mod a = 0) then written('1') else written('0');
...
––––––––––––––––
Не понятно - пиши
0,0
(0 оценок)
Ответ:
Макс528103
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота