Для делимости числа на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11.
Приведу небольшие примеры:
121/11=11. Вывод: yes;
1211/11=110,(09). Вывод: no;
Я в принципе понимаю что данная задача лёгкая, но я хочу поинтересовться по поводу условия задачи:
Там написано, цитирую:
Ага ясно!
То есть для чисел 121 (1-2+1=0) Условие будет выполнятся?
Ну тебе же красным цветом цветом выделили.Да будет.
ДАдада, спасибо)
Вот моё решение к этой задачке)) Не судите строго так сказать)
program metro;
var i,j,sum,ibr,cod:integer;
s,sch:string;
begin
Read(s);
j:=1;
For i:=1 to length(s) do
Begin
sch:=Copy(S,i,1);
Val(sch,ibr,cod);
inc(j);
If j mod 2=0 then Sum:=Sum-ibr
else Sum:=Sum+ibr;
End;
If (sum=0) or (sum mod 11=0) then Write ('YES')
else Write ('NO');
End.
Я немног оне согласен, с реализацией,если ты читаеш и файла зачем тебе строка?Я бы сделал так.
просто зачем тебе полная строка, если ты туда записываеш всего 1 элемент,да и чтобы строку пройти не обязательно ее считывать и запоминать длинну.Я бы вообще использовал на твоем месте не стоку,а чар,тогда и процедура val ушла бы,но тогда надо было бы делать функцию chartoint.
program metro;
var i,j,sum,ibr,cod:integer;
ch:string[1];
begin
j:=1;
while not eol(fin) do{таже самая строка,только не запоминаем,как переменную и еще я точно не помню,либо eol(fin) либо еоln(fin)}
Begin
read(fin,ch);
Val(ch,ibr,cod);
inc(j);
If j mod 2=0 then Sum:=Sum-ibr
else Sum:=Sum+ibr;
End;
If (sum=0) or (sum mod 11=0) then Write ('YES')
else Write ('NO');
End.
В этой строке у меня не один элумент, а само выражение! А вторая запоминает элемент. И я с данными функциями ещё не знаком.
Не надо преобразовывать строку к числу там, где можно обойтись без преобразования. Все проще:
var
n: longint;
curr, s: integer;
begin
readln(n);
curr := 1; s := 0;
while n <> 0 do begin
s := s + curr * (n mod 10);
curr := - curr;
n := n div 10;
end;
if (s = 0) or (abs(s) mod 11 = 0) then writeln('yes')
else writeln('no');
end.
А если Вам дано число большее 2 миллиардов? (болше longint)
а что тебе чтоит разбить число? посчитаеш первые 9 знаков,потом еще 9 знаков и тд сколько надо.Тут же невашен порядок числа.Все равно операции с одним типом будут быстрее чем преобразование из 1 типа в другой.
Обычное для таких задач ограничение - 109, то есть, один миллиард. Если больше - придется использовать более емкие типы: dword, int64, qword... Ну, или тогда уже переходить к строке.
P.S. Кстати, по условию в оригинале - строка она тоже не метод, там говорится о числах 1 .. 1010000, тут уж только посимвольное чтение, да и сумму надо сделать типа LongInt, с Integer-ом может быть переполнение:
var
ch: char;
curr, s: longint;
begin
curr := 1; s := 0;
while not eoln do begin
read(ch);
s := s + curr * (ord(ch) - ord('0'));
curr := - curr;
end;
if (s = 0) or (abs(s) mod 11 = 0) then writeln('yes')
else writeln('no');
end.
Как раз таки такое ограчение мне и требовалось!!!