Почему не работает программа? в любом случае выходит, что билет не счастливый. посмотрите, ,. 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.
191
353
Ответы на вопрос:
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 и обводить что нужно взять, что в каком порядке
Популярно: Информатика
-
stasnotrage14.03.2023 12:41
-
kaiv04.06.2021 20:53
-
irinka21804.08.2022 17:19
-
1672карина214030.03.2023 13:01
-
Avetazatan07.08.2021 00:49
-
vovavo200730.05.2023 23:36
-
DaiDZ22.06.2022 03:19
-
shapo200524.04.2021 22:07
-
Братюня1116.02.2023 18:05
-
Ris123426.12.2022 17:43