1. а) Петя едет в автобусе, читает книгу и насвистывает. б) Петя насвистывает, когда едет в автобусе или читает книгу. в) Петя едет в автобусе и читает книгу или насвистывает. г) то же, что и а). д) Петя едет в автобусе или читает книгу и насвистывает. 2. а) Число 5-простое = 1. б) Луна-спутник Венеры = 0. в) Число 5-простое и Луна-спутник Венеры = 0. г) Число 5-простое или Луна-спутник Венеры = 1. д) Если число 5-простое, то Луна-спутник Венеры = 0. е) Число 5-простое тогда и только тогда, когда Луна-спутник Венеры = 0. 3. а) 1999<2000 и 1999>2000 б) Петя решил все задания контрольной работы и Петя не решил все задания контрольной работы в) Неверно, что луна спутник Земли и Неверно, что луна не является спутником Земли г) Мишень поражена не первым выстрелом и Неверно, что мишень поражена не первым выстрелом. 4. А=1, В=0, С=1, Д=0.
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 и обводить что нужно взять, что в каком порядке откидывать...)
