Почему не работает программа?

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

в избранное

yalo555

03 сентября 2022

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?