Признаки делимости

@Ludwig314 · Регистрация: 16.10.2017

Студворк — интернет-сервис помощи студентам

Умоляю, хэлп

Известны следующие признаки делимости числа N. Для делимости на 5 необходимо, чтобы последняя цифра числа была 0 или 5.Написать функцию проверки признаков делимости. Проверить их для различных значений N.

Добавлено через 2 часа 14 минут
Нужно написать программу с помощью процедуры проверки последнего числа на делимость на 5

@JuriiMW · 17.10.2017, 06:41

Какого типа число N?
Если N целочисленного типа, то применение мнемонического признака делимости не нужно!
Ибо, можно производить целочисленное деление на 5, которое само даст ответ: нет остатка — делится на цело, есть остаток — не делится…
А получать остаток деления на 10, чтобы потом производить сравнение на равенство остатка нулю или пяти — это совершенно лишнее.

Сообщение от Ludwig314

Нужно написать программу с помощью процедуры проверки последнего числа на делимость на 5

Это пожалуйста:

Pascal
1
2
3
4
5
procedure Экзамен(a : array of Integer):=WriteLn('Последнее число '+(a[a.Length-1]mod 5<>0?'не ':'')
+'делится на 5.');
begin
  Экзамен(ReadArrInteger('Введите числа через пробел:', ReadInteger('Количество чисел:')));
end.

@Соколиный глаз · 17.10.2017, 14:59

Pascal
1
2
3
4
5
6
7
8
9
function DivisibilityCheck(n: integer) := (n mod 10 = 5) or (n mod 10 = 0);
 
begin
  for var i := 1 to ReadlnInteger('N:') do
  begin
    var k := Random(100);
    WritelnFormat('Число {0} {1}делится на 5.', k, DivisibilityCheck(k) ? '' : 'не ');
  end;
end.

Добавлено через 8 минут

Сообщение от Ludwig314

чтобы последняя цифра числа была 0 или 5

Я сделал именно по требованию автора.

Добавлено через 35 секунд
Хотя, можно:

Pascal
1
function DivisibilityCheck(n: integer) := n mod 5 = 0;

@JuriiMW · 18.10.2017, 06:36

Volobuev Ilya, автор требовал вот что:

Сообщение от Ludwig314

Нужно написать программу с помощью процедуры проверки последнего числа на делимость на 5

А вы написали программу на признак делимости!
Да ещё и сделали два деления ;–(

@Соколиный глаз · 18.10.2017, 07:03

Не по теме:

Во втором варианте - одно...

@Joy · 19.10.2017, 17:51

Volobuev Ilya, (n mod 10 = 5) - это только для положительных чисел

@Соколиный глаз · 19.10.2017, 17:58

Я и писал для них. Для того, чтобы для всех было - Abs(n mod 10) = 5.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Ludwig314 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 1

	Признаки делимости 17.10.2017, 00:38. Показов 3582. Ответов 6 Метки нет (Все метки) Умоляю, хэлп Известны следующие признаки делимости числа N. Для делимости на 5 необходимо, чтобы последняя цифра числа была 0 или 5.Написать функцию проверки признаков делимости. Проверить их для различных значений N. Добавлено через 2 часа 14 минут Нужно написать программу с помощью процедуры проверки последнего числа на делимость на 5 0

@Соколиный глаз
	18.10.2017, 07:03
	Не по теме: Во втором варианте - одно... 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	19.10.2017, 17:51
	Volobuev Ilya, (n mod 10 = 5) - это только для положительных чисел 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	19.10.2017, 17:58
	Я и писал для них. Для того, чтобы для всех было - Abs(n mod 10) = 5. 0