С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/160: Рейтинг темы: голосов - 160, средняя оценка - 4.54
20 / 17 / 20
Регистрация: 25.01.2012
Сообщений: 66

Если одно из чисел делится на другое нацело, выведите 1

13.04.2012, 20:16. Показов 32773. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число.

При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

Решил её так:
Pascal
1
2
3
4
5
6
var n,m,c: longint;
begin
 read(n,m);
 c:=((n div m) +(n mod m)*(m mod n)+(m div n))div((n div m)+ (m div n));
 writeln(c);
end.
Но почему-то неверно.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.04.2012, 20:16
Ответы с готовыми решениями:

Выяснить делится ли нацело одно число на другое
Даны два числа. Выяснить делится ли нацело одно число на другое. Результат вывести на экран.

Как проверить, делится ли одно число на другое нацело?
Здравствуйте. Подскажите, пожалуйста, как проверить делится ли число на другое и получается целое число. Например, 20/20=1 - получается...

Запросите 16 чисел и выведите на экран для каждого, делится ли оно нацело на 11
Запросите 16 чисел и выведите на экран для каждого, делится ли оно нацело на 11. Спросите у пользователя, сколько нужно проанализировать...

13
Pascal +
 Аватар для UserABC
137 / 136 / 127
Регистрация: 16.03.2011
Сообщений: 461
13.04.2012, 21:00
Цитата Сообщение от s1lver Посмотреть сообщение
Но почему-то неверно
Вот вам код:
Pascal
1
2
3
4
5
6
7
program num;
uses crt;
var n, m:integer;
begin
readln(n,m);
writeln ((m mod n) + 1);
end.
1
20 / 17 / 20
Регистрация: 25.01.2012
Сообщений: 66
13.04.2012, 21:22  [ТС]
Спасибо, но тут нужно что бы любое из чисел делилось n на m или m на n. Например если ввести 8 и 2 работает нормально, а если 2 и 8 то уже не выводится 1.
0
Pascal +
 Аватар для UserABC
137 / 136 / 127
Регистрация: 16.03.2011
Сообщений: 461
13.04.2012, 21:29
Цитата Сообщение от s1lver Посмотреть сообщение
Но почему-то неверно
А почему у вас не работает?
Проверил, вроде рабочий код
0
20 / 17 / 20
Регистрация: 25.01.2012
Сообщений: 66
13.04.2012, 21:32  [ТС]
Попробуйте ввести 2 и 8, и наоборот 8 и 2 должно выдавать 1 в обеих случаях. а Во втором случае выдает 3.
0
Pascal +
 Аватар для UserABC
137 / 136 / 127
Регистрация: 16.03.2011
Сообщений: 461
13.04.2012, 21:34
Цитата Сообщение от s1lver Посмотреть сообщение
а Во втором случае выдает 3
У меня 1 выдает.
Попробуйте модуль uses crt подключить!
0
0 / 0 / 1
Регистрация: 06.04.2014
Сообщений: 2
06.04.2014, 08:24
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
Program ABC2944;
var n, m, g: integer;
begin
readln(n, m);
g := (n mod m)*(m mod n) + 1;
writeln (g);
end.
0
20 / 21 / 6
Регистрация: 30.06.2015
Сообщений: 431
04.03.2016, 23:23
не могу понять логику задачу, почему при 2 и 8 будет1, как и наоборот?
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
05.03.2016, 09:12
izuchaju_python, оператор mod для чего нужен знаете? И что дает в результате?
0
20 / 21 / 6
Регистрация: 30.06.2015
Сообщений: 431
06.03.2016, 16:32
я в паскале 0. yно если верить википедии , то это остаток от деления
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
06.03.2016, 16:42
Цитата Сообщение от izuchaju_python Посмотреть сообщение
почему при 2 и 8 будет1, как и наоборот?
Потому что или n mod m=0, либо m mod n=0, +1=1, Если не делятся выведет другое число
0
20 / 21 / 6
Регистрация: 30.06.2015
Сообщений: 431
06.03.2016, 23:27
стоп.остаток от деления 2 на 8 = 0?
Изображения
 
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
07.03.2016, 08:37
Цитата Сообщение от izuchaju_python Посмотреть сообщение
остаток от деления 2 на 8 = 0?
Совсем плохо что ли соображаешь?
8 mod 2=0
2 mod 8=2
0*2=0+1=1
0
20 / 21 / 6
Регистрация: 30.06.2015
Сообщений: 431
07.03.2016, 14:40
блин, ну не всем все с полу-слова понимать))

Добавлено через 10 минут
просто не вдумался во фразу "из них", т.е. проверяем остаток сначала 1-го на 2-е, затем наоборот и если где-то он будет равен нулю печатаем 1. хотел бы вам что-то написать на вашу грубость, но не буду, ведь ничего никто не получит из этого.а так задача элементарная.решается за минуту.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.03.2016, 14:40
Помогаю со студенческими работами здесь

Найти количество пар натуральных чисел, где одно из чисел делится на другое
Есть число n, оно от 1 до 1000. Нужно найти количество пар натуральных чисел, где одно из чисел делится на другое. Числа не превосходят n.

Пользователь вводит два числа. Определить, делится одно число на другое без остатка. Если нет, предложить ближайшее
Пользователь вводит два числа. Определить, делится одно число на другое без остатка. Если нет, предложить ближайшими цел

Проверить условие, что число а: четное, делится нацело на 3, нечетное, не делится нацело на 3
запишите условие того, что число а есть: парное, делится нацело на 3, нечетное, не делится нацело на 3 пожалуйста, помогите .. буду...

Если a делится на b или b делится на a, то вывести 1, иначе – любое другое число
Доброго времени суток! В С++ недавно, но в универе уже задали такие задачи: 4)Даны два целых числа a и b. Если a делится на b или b...

Если а делится на b или b делится на а, то вывести 1, иначе— любое другое число
Даны два целых числа а и b. Если а делится на b или b делится на а, то вывести 1, иначе— любое другое число. Условные операторы и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru