tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два целых числа а
Даны два целых числа а и b. если а делится на b или b делится на a, то вывести 1, иначе – любое другое число.
Ровног
1 11.06.2019 23:30
12
Ответы
БеллаСAT
09.07.2020 18:55
...
if (a mod b = 0) or (b mod a = 0) then written('1') else written('0');
...
––––––––––––––––
Не понятно - пиши
ПОКАЗАТЬ ОТВЕТЫ
ytytuty
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Саша22122004
05.04.2021 22:52
Надо написать на питоне это:...
FIREH4IR
05.04.2021 23:02
Где ошибка в программе? var d, s, n: integer;begin for d := 6 to 1000 do begin s := (s + 1) div 7; n := 36; while s 2050 do begin s := s * 2; n := n + 3; end; if n...
Annpetushok
07.09.2019 19:40
Переведите 11,73 гб в мб, 1,50 гб в мб...
6996nya
07.09.2019 19:40
Нарисовать корабль в паскал через graphabc...
vbbbbb
13.08.2019 00:00
Программа,хранящаяся во внешней памяти ,после вызова на выполнение попадает а)в процессор б)в пзу в)в оперативную память г)на устройство вывода...
nasa21p08m1i
30.05.2019 04:40
Слодки массой 240 кг, движущейся со скоростью 1,1 м/ с, ныряет мальчик массой 60 кг, двигаясь в горизонтальном направлении. какой станет скорость лодки после прыжка...
Farzaney
30.05.2019 04:40
Фермер продал 5 центнеров марковки на сумму 3500р и 400 кг свёклы на сумму 4800 р что дороже морковь или свёкла (с кратко записью)-...
маркинала
30.05.2019 04:40
Сообщение о жанне д арк. , люди, . у меня беда с подобными . заранее ....
yulakri
30.05.2019 04:40
Определить фенотипический признак растений гороха с генотипом аавb (семена желтые- а,зеленые - а,гладкие в,морщинистые b)...
nikvermenox7gay
30.05.2019 04:40
На оси абсцисс найти точку м, расстояние которой от точки а(3; -3) равно 5...
Популярные вопросы
1 В.В Маяковский. Поэма (во весь голос )Основанная Идея 2 Тема...
3
40б Два золотых шарика столкнулись на гладкой поверхности. Радиус...
1
Задание 2. «Да – нет». Если вы согласны с утверждением, то напротив...
2
Комрады, решите логарифмические неравенства...
2
даны отрезок КЛ точка М не лежащая на прямой КЛ и точка Н лежащая...
3
Определите социально-экономические и идейно-политические причины...
3
За решение кину 100р на карту,сессия по математике.Найти все токи...
1
3, 6 и 9 задачи какие можете очень от...
1
Найти угол К=90 градусов,КЕ=8см,МЕ=16см,КД=h.ДМ а прямоугольном...
2
Проверочная физика 8 класс...
3
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.