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