Склавиатуры вводится целое шестизначное число. необходимо определить, является ли оно "счастливым". ("счастливыми" называются те числа, у которых сумма перых трёх цифр равна сумме вторых трёх цифр).

varx: string; a1,a2,a3,b1,b2,b3,cd: integer; beginreadln(x); if length(x) = 6 thenbegin val(copy(x,1,1),a1,cd); val(copy(x,2,1),a2,cd); val(copy(x,3,1),a3,cd); val(copy(x,4,1),b1,cd); val(copy(x,5,1),b2,cd); val(copy(x,6,1),b3,cd);

if a1+a2+a3 = b1+b2+b3 then writeln('lucky') else writeln('not lucky'); end; read; end.

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41