Question

Почему не работает программа? В любом случае выходит, что билет не счастливый. Посмотрите,очень срочно,спасибо.
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.

Answer 1

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 и обводить что нужно взять, что в каком порядке откидывать...)

Answer 2

спасибо,работает)только как объяснить учителю,что он сам же ошибся при делении. Это место.она нам сама написала)