Делится ли число на 13

@Демидрон · Регистрация: 04.09.2019

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

Составить программу, которая проверяет, делится ли на 13 целое число, введенное
пользователем с клавиатуры.
результат выводить через ShowMessage.

Delphi
1
2
3
4
5
var x:integer;
begin
x:=StrToInt(Edit1.Text);
 if (x mod 13) then
ShowMessage('Делится');

но почему-то пишет, что нужен булеан тип, не удается скомпилировать... нервы уже закончились...

@mr-Crocodile · 12.09.2019, 16:37

mod возвращает остаток от деления.
вот ты его и сравни с нулём

Delphi
1
if (x mod 13 = 0) then

Verevkin · 12.09.2019, 16:40

Сообщение от Демидрон

но почему-то пишет, что нужен булеан тип

Ну, если очень нужен, то дай ему, чо он хочет.

Delphi
1
if Boolean(x mod 13) then <не делится>

@mr-Crocodile · 12.09.2019, 16:47

Не по теме:

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

Ну, если очень нужен, то дай ему, чо он хочет.

Вредитель! не учи плохому! Он же твой ответ всерьёз принять может!!

Verevkin · 12.09.2019, 16:51

Не по теме:

Delphi
1
if Boolean(x mod 13) then

:D

Сообщение от mr-Crocodile

Вредитель! не учи плохому!

И чо будет?

@Демидрон · 12.09.2019, 17:05 **[ТС]**

Вводил ранее равенство, всё равно какую-то ошибку выкидывал...

@mr-Crocodile · 12.09.2019, 17:22

Сообщение от Демидрон

всё равно какую-то ошибку выкидывал...

код покажи то.
Ошибка, небось, секретная?

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

И чо будет?

ну, для начала Boolean(x mod 13) будет True когда число НЕ ДЕЛИТСЯ на 13.
а ещё попробуй такой код:

Delphi
1
2
3
4
5
6
7
8
{$APPTYPE CONSOLE}
uses SysUtils;
var x : integer;
begin
  x := -1;
  WriteLn(x mod 13,' = ',Boolean(x mod 13));
  ReadLn
end.

в старой Delphi в строке вместо TRUE мусор.
Free Pascal правда сожрал без вопросов...

а вообще - забей. считаешь, что это нормальный код, которому можно учить нубов - ну и ладно.
мне что, больше всех надо?!

@Демидрон · 12.09.2019, 17:27 **[ТС]**

К сожалению, того кода уже нету) А так, сейчас всё забил , стало нормально работать. Спасибо за помощь)

Verevkin · 12.09.2019, 17:56

Сообщение от mr-Crocodile

ну, для начала Boolean(x mod 13) будет True когда число НЕ ДЕЛИТСЯ на 13.

Я так и на писал, разве нет?

Сообщение от mr-Crocodile

а ещё попробуй такой код

Не по теме:

Да ну нах. Я только с работы пришёл, открыл баночку пивка и валяюсь на диване. А тут - ты, зануда. :D Отстань.

@Puporev · 13.09.2019, 06:52

А задача на проверку делимости наверное должна использовать признак делимости на 13, с mod=0 можно провериь делимость на любое число.

Признак делимости на 13
Число делится на 13 тогда и только тогда, когда число его десятков, сложенное с учетверённым числом единиц, кратно 13 (например, 845 делится на 13, так как 84 + (4 · 5) = 104 делится на 13).

@AzAtom · 13.09.2019, 08:21

То есть, признаком делимости числа на 13 является делимость на 13 другого числа, полученного из первого...

@D1973 · 13.09.2019, 08:24

Этот признак хорош для подсчета в уме... А для программы кроме как mod ничего и не надо более...

@Puporev · 13.09.2019, 08:25

Ну, так умные люди пишут. Это не для программирования, где нет mod, но такие задачи любят писать для обучения программированию.

@mr-Crocodile · 13.09.2019, 10:02

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

То есть, признаком делимости числа на 13 является делимость на 13 другого числа, полученного из первого...

ага.

но можно же продолжить цепочку: 104 -> 10 + 4*4 = 26
в итоге, крутим цикл, пока не получается число меньше 40, если это число 13 или 26 или 39 - значит исходное число делится на 13, иначе - не делится.

но, согласен, это способ для ручной проверки. да и то, сомнительно, что быстрее, взять число, 97875 и разделить в столбик на 13 или вычислять 9787 + 4*5 = 9807 -> 980 + 28 -> 1008 -> 100 + 32 =132 -> 13 + 8 = 21 - НЕ ДЕЛИТСЯ

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

А для программы кроме как mod ничего и не надо более...

точно.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Демидрон 0 / 0 / 0 Регистрация: 04.09.2019 Сообщений: 15
	12.09.2019, 17:05 [ТС]
	Вводил ранее равенство, всё равно какую-то ошибку выкидывал... 0

@Демидрон 0 / 0 / 0 Регистрация: 04.09.2019 Сообщений: 15
	12.09.2019, 17:27 [ТС]
	К сожалению, того кода уже нету) А так, сейчас всё забил , стало нормально работать. Спасибо за помощь) 0

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,461
	13.09.2019, 08:21
	То есть, признаком делимости числа на 13 является делимость на 13 другого числа, полученного из первого... 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,424 Записей в блоге: 3
	13.09.2019, 08:24
	Этот признак хорош для подсчета в уме... А для программы кроме как mod ничего и не надо более... 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.09.2019, 08:25
	Ну, так умные люди пишут. Это не для программирования, где нет mod, но такие задачи любят писать для обучения программированию. 0