Определить, является ли трамвайный билет счастливым? Счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль

спасибо, но мне удалось сделать без див и мод

спасибо, но мне удалось сделать без див и мод

В условии задачи нет требования не использовать div и mod.

я вкурсе. просто не понимаю ка ими пользоваться. прсто констатировал факт, что сумел

var n,n1,n2,s1,s2:integer;beginwrite('n = '); readln(n);n1:=n div 1000;n2:=n mod 1000;s1:=n1 div 100+(n1 div 10 mod 10)+n1 mod 10;s2:=n2 div 100+(n2 div 10 mod 10)+n2 mod 10;if s1=s2 then writeln('Билет счастливый') else writeln('Билет не счастливый');end.Пример 1:n = 156309Билет счастливыйПример 2:n = 762453Билет не счастливый

program lucky;varn,l,r: integer;beginwriteln('введите номер билета');readln(n);l := (n div 100000) + (n mod 100000 div 10000) + (n mod 100000 mod 10000 div 1000);r := (n mod 100000 mod 10000 mod 1000 div 100) +(n mod 100000 mod 10000 mod 1000 mod 100 div 10) + (n mod 100000 mod 10000 mod 1000 mod 100 mod 10);if l == r thenwriteln('ваш билет счастливый')elsewriteln('ваш билет не счастливый');end.