Проверка делимости 3 чисел на 11

@Chelove234 · Регистрация: 19.12.2022

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

Добрый день. Помогите решить задачу Известен следующий признак делимости числа n на 11:
для делимости на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11.
Написать процедуры проверки признака делимости. Даны три натуральных числа. Проверить для каждого из них, делятся ли они на 11.
Вот моя программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure kr11(a: integer);
Var i, snc, sch: integer;
Begin
While a>0 do Begin
 inc(i);
 if i mod 2 =0 then sch:= sch + (a mod 10)
               else snc:= snc + (a mod 10);
 a:= a div 10;
 end;
 if (sch-snc) mod 11 = 0 then writeln('YES')
                       else writeln('NO')
end;
Var a,b,c: integer;
Begin
 readln(a);
 kr11(a);
 readln(b);
 kr11(b);
 readln(c);
 kr11(c);
end.

Проблема в том, что она не всегда работает корректно для трёх чисел. Как это исправить?

@AHBAR · 01.03.2023, 13:25

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

Проблема в том, что она не всегда работает корректно для трёх чисел. Как это исправить?

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

Pascal
1
2
3
  i := 0;
  sch := 0;
  snc := 0;

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure kr11(a: integer);
Var i, snc, sch: integer;
Begin
 
  i := 0;
  sch := 0;
  snc := 0;
 
While a>0 do Begin
 inc(i);
 if i mod 2 =0 then sch:= sch + (a mod 10)
               else snc:= snc + (a mod 10);
 a:= a div 10;
 end;
 if (sch-snc) mod 11 = 0 then writeln('YES')
                       else writeln('NO')
end;
Var a,b,c: integer;
Begin
 readln(a);
 kr11(a);
 readln(b);
 kr11(b);
 readln(c);
 kr11(c);
 readln;
end.

@bormant · 01.03.2023, 20:16

Порассуждаем.
1)
Основной блок программы: три числа -- это же цикл?

Pascal
1
2
3
for i:=2 downto 0 do begin
  Read(t); kr11(t);
end;

2) разность цифр на четных и нечетных местах -- ее можно вычислять сразу, без отдельных сумм

Причём, для чередования знака очередной цифры значительно проще менять знак суммы

Pascal
1
2
3
4
5
s:=0;
while n<>0 do begin
  s:=-s+n mod 10;
  n:=n div 10;
end;

3) по хорошему, вместо процедуры просится функция:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function IsMultiple11(n: Integer): Boolean;
var s: Integer;
begin
  s:=0;
  while n<>0 do begin
    s:=-s+n mod 10;
    n:=n div 10;
  end;
  IsMultiple11:=0=s mod 11;
end;
 
var i, t: Integer;
begin
  for i:=2 downto 0 do begin
    Read(t);
    WriteLn(IsMultiple11(t));
  end;
end.

Добавлено через 7 минут
4)
С третьей стороны для влезающих в Integer чисел легко ведь написать

Pascal
1
2
3
4
function IsMultiple11(n: Integer): Boolean;
begin
  IsMultiple11:=0=n mod 11;
end;

Тоже заметили, да? Смысл мудрить что-то с признаком делимости на 11 появляется только тогда, когда число длинное и не влазит в Integer:

Pascal
1
2
3
4
5
6
function IsMultiple11(const n: String): Boolean;
var s, i: Integer;
begin
  s:=0; for i:=1 to Length(n) do s:=-s+Ord(n[i])-Ord('0');
  IsMultiple11:=0=s mod 11;
end;

Здесь нет проверки на то, что в n только цифры, но и задание не требует проверки ввода на корректность

@Chelove234 · 02.03.2023, 14:25 **[ТС]**

У меня условие практической такое(и мы изучаем процедуры, поэтому функции использовать нельзя)

@bormant · 02.03.2023, 20:22

Pascal
1
2
3
4
5
6
procedure TestMultiple11(const n: String);
var s, i: Integer;
begin
  s:=0; for i:=1 to Length(n) do s:=-s+Ord(n[i])-Ord('0');
  WriteLn(0=s mod 11);
end;

Новые блоги и статьи Все статьи Все блоги /
Что нового в C# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .

@Chelove234 0 / 0 / 0 Регистрация: 19.12.2022 Сообщений: 26
	02.03.2023, 14:25 [ТС]	4
	У меня условие практической такое(и мы изучаем процедуры, поэтому функции использовать нельзя) 0

Проверка делимости 3 чисел на 11

Решение