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 и обводить что нужно взять, что в каком порядке
info49
16.05.2020
1)от 100 до 900 существует 801 число, для представления 801 различных чисел нужно 10 бит, 2 в 10-й степени =1024, а 2 в 9-й степени только 512. 128х5х10=6400 бит=800 байт2) известно, что с n бит можно закодировать 2n различных чисел. поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. поскольку промежуточный финиш прошли 70 велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит.7)решение: n = 10 х 5 + 4 х 8 = 82 n = 2i = 128 i = 7 ответ: 7 бит10) бщее количество ключей на всех уровнях 16*8=128 (чет много=)) нам надо найти, в какую степень надо возвести 2, чтобы получить 128. 2^x=128 x=7 вот собственно и ответ. 7 битвсе, что смогла : )
ответ:
1111101000111111
f-15-1111
a-10-1010
3-3-0011
7-7-0111