Почему не работает программа? В любом случае выходит, что билет не счастливый. Посмотрите,оченьсрочно,спасибо. program primer ; var x,i,h1,h2,h3,h4,h5,h6,s1,s2 : integer ; begin Write (' Введите номер билета '); readln (x) ; h1:= x div 100000 ; h2:= x mod 100000 div 100000 ; h3:= x mod 100000 div 10000 ; h4:= x mod 100000 div 1000 ; h5:= x mod 100000 div 100 ; h6:= x mod 100000 div 10 ; s1:= h1+h2+h3 ; s2:= h4+h5+h6 ; if s1=s2 then writeln (' билет счастливый ') else writeln (' билет несчастливый '); readln ; end.
Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer; begin readln (x); h1 := x div 100000; h2 := x mod 100000 div 10000; h3 := x mod 10000 div 1000; h4 := x mod 1000 div 100; h5 := x mod 100 div 10; h6 := x mod 10; s1 := h1 + h2 + h3; s2 := h4 + h5 + h6; if (s1 = s2) then writeln('Счастливый') else writeln('Несчастный'); readln; end. Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)
